Jump to content

Penta-power prime seeds: Difference between revisions

Penta-power prime seeds (view source)

Revision as of 09:53, 13 October 2023

27 bytes removed ,  7 months ago
→‎J: simplify, speedup 2.6 times
m (→‎{{header|RPL}}: added execution time)
(→‎J: simplify, speedup 2.6 times)
Line 498:
 
=={{header|J}}==
<syntaxhighlight lang=j> pentapower ps=. (5 = (] >:)^:((5 > ]) *.#~ 1 p: 1 + [^~ + ^)^:_"0) & 0x]
 
_10 ]\ I.4x pentapowerps 3x ps 2 ps 1 ps 0 ps i. 1520000
1 5 69 1665 2129 25739 29631 62321 77685 80535
82655 126489 207285 211091 234359 256719 366675 407945 414099 628859
Querfeld
559

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/355772"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information