A106097 Primes with maximal digit = 5.
5, 53, 151, 251, 353, 503, 521, 523, 541, 1051, 1151, 1153, 1451, 1453, 1511, 1523, 1531, 1543, 1553, 2053, 2153, 2251, 2351, 2503, 2521, 2531, 2543, 2551, 3251, 3253, 3511, 3533, 3541
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime[Range[500]], Max[IntegerDigits[ # ]]==5&]