login
A106098
Primes with maximal digit = 4.
5
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,1
LINKS
MATHEMATICA
Select[Prime[Range[600]], Max[IntegerDigits[ # ]]==4&]
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 07 2005
STATUS
approved