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