A106098 Primes with maximal digit = 4.
41, 43, 241, 401, 421, 431, 433, 443, 1423, 1433, 2141, 2143, 2243, 2341, 2411, 2423, 2441, 3041, 3343, 3413, 3433, 4001, 4003, 4013, 4021, 4111, 4133, 4201, 4211, 4231, 4241, 4243
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime[Range[600]], Max[IntegerDigits[ # ]]==4&]