Find squares n where n+1 is prime: Difference between revisions
Find squares n where n+1 is prime (view source)
Revision as of 11:45, 19 December 2021
, 2 years agoAdd J
Not a robot (talk | contribs) (Add Modula-2) |
Not a robot (talk | contribs) (Add J) |
||
Line 202:
676
</pre>
=={{header|J}}==
<lang j>((<.=])@%:#+)@(i.&.(p:^:_1)-1:) 1000</lang>
{{out}}
<pre>1 4 16 36 100 196 256 400 576 676</pre>
=={{header|Julia}}==
Line 210 ⟶ 215:
foreach(p -> print(lpad(last(p), 5)), filter(isintegersquarebeforeprime, 1:1000))
</lang>{{out}}<pre> 1 4 16 36 100 196 256 400 576 676 </pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>Cases[Table[n^2, {n, 101}], _?(PrimeQ[# + 1] &)]</lang>
|