Penta-power prime seeds: Difference between revisions

Content added Content deleted
m (→‎{{header|RPL}}: added execution time)
(→‎J: simplify, speedup 2.6 times)
Line 498: Line 498:


=={{header|J}}==
=={{header|J}}==
<syntaxhighlight lang=j> pentapower =. (5 = (] >:)^:((5 > ]) *. 1 p: 1 + [ + ^)^:_"0) & 0x
<syntaxhighlight lang=j> ps=. ] #~ 1 p: 1 + ^~ + ]


_10 ]\ I. pentapower i. 1520000
_10 ]\ 4x ps 3x ps 2 ps 1 ps 0 ps i. 1520000
1 5 69 1665 2129 25739 29631 62321 77685 80535
1 5 69 1665 2129 25739 29631 62321 77685 80535
82655 126489 207285 211091 234359 256719 366675 407945 414099 628859
82655 126489 207285 211091 234359 256719 366675 407945 414099 628859