Super-Poulet numbers: Difference between revisions
J draft
(Add Factor) |
(J draft) |
||
Line 39:
</pre>
=={{header|J}}==
Implementation:<lang J>spou1=: {{ 2 = 2x(y&|)@^ y }}
is_super_poulet=: {{
if. 2~:#q=. q: y do. 0 return. end.
if. spou1 {. q do.
if. spou1 {: q do.
if. spou1 y do. 1 return. end.
end.
end.
0
}}"0</lang>
Task example:<lang J> 20{. (#~ is_super_poulet) 1+i.1e5
341 1387 2047 2701 3277 4033 4369 4681 5461 7957 8321 10261 13747 14491 15709 18721 19951 23377 31417 31609</lang>
=={{header|Julia}}==
<lang ruby>using Primes
| |||