Anonymous user
Primes whose first and last number is 3: Difference between revisions
Primes whose first and last number is 3 (view source)
Revision as of 23:21, 18 December 2021
, 2 years ago→{{header|Julia}}
(Added solution for Action!) |
|||
Line 502:
9749 9769 9829 9839 9859 9929 9949
Total 9x9 primes less than 1,000,000: 2053.
</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>Cases[NestWhileList[NextPrime,
2, # < 4000 &], _?(IntegerDigits[#][[{1, -1}]] === {3, 3} &)]</lang>
{{out}}<pre>
{3,313,353,373,383,3023,3083,3163,3203,3253,3313,3323,3343,3373,3413,3433,3463,3533,3583,3593,3613,3623,3643,3673,3733,3793,3803,3823,3833,3853,3863,3923,3943}
</pre>
| |||