login
A106093
Primes with maximal digit = 9.
9
19, 29, 59, 79, 89, 97, 109, 139, 149, 179, 191, 193, 197, 199, 229, 239, 269, 293, 349, 359, 379, 389, 397, 409, 419, 439, 449, 479, 491, 499, 509, 569, 593, 599, 619, 659, 691, 709, 719, 739, 769, 797, 809, 829, 839, 859, 907, 911, 919, 929, 937, 941, 947
OFFSET
1,1
COMMENTS
Differs from A062679 in 95th term = 1693; A062679(95) = 1691 = 19*89.
LINKS
MATHEMATICA
Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==9&]
PROG
(Magma) [p: p in PrimesUpTo(2000) | 9 in Intseq(p)]; // Vincenzo Librandi, Nov 22 2015
(PARI) forprime(p=2, 1e3, if(vecmax(digits(p)) == 9, print1(p, ", "))) \\ Altug Alkan, Nov 22 2015
KEYWORD
nonn,base
AUTHOR
STATUS
approved