Ludic numbers: Difference between revisions

<syntaxhighlight lang="Quackery"> [ []0 over of

swap times [ i^ 1+ join ]

[ beheaddup 0 peek

1 - temp put

witheach[ behead drop

[temp i^share 1+split

dip temp share modjoin

dup [] iff= join else dropuntil ]

drop temp release

drop behead drop join ] is ludic ( n --> [ )

say "First 25 Ludicludic numbers: "

say " Ludicludic numbers less than 1000."

<pre>First 25 Ludicludic numbers: [ 1 2 3 5 7 11 13 17 23 25 29 37 41 43 47 53 61 67 71 77 83 89 91 97 107 ]

There are 142 Ludicludic numbers less than 1000.