Honaker primes: Difference between revisions
Added Quackery.
m (→{{header|J}}) |
(Added Quackery.) |
||
Line 618:
(286069, 4043749)</pre>
=={{header|Quackery}}==
<code>isprime</code> is defined at [[Primality by trial division#Quackery]].
<syntaxhighlight lang="Quackery"> [ 0 swap
[ 10 /mod
rot + swap
dup 0 = until ]
drop ] is digitsum ( n --> n )
[ digitsum swap digitsum = ] is ds= ( n n --> b )
[ 0 temp put
[] 0
[ 1+
dup isprime if
[ 1 temp tally
dup temp share
ds= if
[ dup dip
[ temp share
swap join
nested join ] ] ]
dip [ 2dup size = ]
swap until ]
drop nip temp release ] is honakers ( n --> [ )
50 honakers
witheach
[ echo
i^ 5 mod 4 =
if cr else sp ]
cr cr
10000 honakers -1 peek echo</syntaxhighlight>
{{out}}
<pre>[ 32 131 ][ 56 263 ][ 88 457 ][ 175 1039 ][ 176 1049 ]
[ 182 1091 ][ 212 1301 ][ 218 1361 ][ 227 1433 ][ 248 1571 ]
[ 293 1913 ][ 295 1933 ][ 323 2141 ][ 331 2221 ][ 338 2273 ]
[ 362 2441 ][ 377 2591 ][ 386 2663 ][ 394 2707 ][ 397 2719 ]
[ 398 2729 ][ 409 2803 ][ 439 3067 ][ 446 3137 ][ 457 3229 ]
[ 481 3433 ][ 499 3559 ][ 508 3631 ][ 563 4091 ][ 571 4153 ]
[ 595 4357 ][ 599 4397 ][ 635 4703 ][ 637 4723 ][ 655 4903 ]
[ 671 5009 ][ 728 5507 ][ 751 5701 ][ 752 5711 ][ 755 5741 ]
[ 761 5801 ][ 767 5843 ][ 779 5927 ][ 820 6301 ][ 821 6311 ]
[ 826 6343 ][ 827 6353 ][ 847 6553 ][ 848 6563 ][ 857 6653 ]
[ 286069 4043749 ]</pre>
=={{header|Raku}}==
| |||