Anonymous user
Find squares n where n+1 is prime: Difference between revisions
Find squares n where n+1 is prime (view source)
Revision as of 22:10, 18 December 2021
, 2 years ago→{{header|Mathematica}} / {{header|Wolfram Language}}
Line 120:
</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>
{{out}}<pre>
{1,4,16,36,100,196,256,400,576,676,1296,1600,2916,3136,4356,5476,7056,8100,8836}
</pre>
=={{header|PARI/GP}}==
| |||