Primes whose first and last number is 3: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
Line 502: | Line 502: | ||
9749 9769 9829 9839 9859 9929 9949 |
9749 9769 9829 9839 9859 9929 9949 |
||
Total 9x9 primes less than 1,000,000: 2053. |
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> |
</pre> |
||