40 lines
897 B
Plaintext
40 lines
897 B
Plaintext
EnableExplicit
|
|
If Not OpenConsole() : End 1 : EndIf
|
|
|
|
#NMAX=25000
|
|
|
|
Dim ludic.b(#NMAX)
|
|
FillMemory(@ludic(0),SizeOf(Byte)*#NMAX,#True,#PB_Byte)
|
|
|
|
Define.i i,j,n,c1,c2
|
|
Define r1$,r2$,r3$,r4$
|
|
|
|
For i=2 To Int(#NMAX/2)
|
|
If ludic(i)
|
|
n=0
|
|
For j=i+1 To #NMAX
|
|
If ludic(j) : n+1 : EndIf
|
|
If n=i : ludic(j)=#False : n=0 : EndIf
|
|
Next j
|
|
EndIf
|
|
Next i
|
|
|
|
n=0 : c1=0 : c2=0
|
|
For i=1 To #NMAX
|
|
If ludic(i) And n<25 : n+1 : r1$+Str(i)+" " : EndIf
|
|
If i<=1000 : c1+Bool(ludic(i)) : EndIf
|
|
c2+Bool(ludic(i))
|
|
If c2>=2000 And c2<=2005 And ludic(i) : r3$+Str(i)+" " : EndIf
|
|
If i<243 And ludic(i) And ludic(i+2) And ludic(i+6)
|
|
r4$+"["+Str(i)+" "+Str(i+2)+" "+Str(i+6)+"] "
|
|
EndIf
|
|
Next
|
|
r2$=Str(c1)
|
|
|
|
PrintN("First 25 Ludic numbers: " +r1$)
|
|
PrintN("Ludic numbers below 1000: " +r2$)
|
|
PrintN("Ludic numbers 2000 to 2005: " +r3$)
|
|
PrintN("Ludic Triplets below 250: " +r4$)
|
|
Input()
|
|
End
|