A106093 Primes with maximal digit = 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

Author

Zak Seidov and Robert G. Wilson v, May 07 2005

Keywords

• nonn
• base

Comments

Differs from A062679 in 95th term = 1693; A062679(95) = 1691 = 19*89.

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A062679.

Cf. A106100, A106099, A106098, A106097, A106096, A106095, A106094.

Programs

Magma

[p: p in PrimesUpTo(2000) | 9 in Intseq(p)]; // Vincenzo Librandi, Nov 22 2015

Mathematica

Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==9&]

PARI

forprime(p=2, 1e3, if(vecmax(digits(p)) == 9, print1(p, ", "))) \\ Altug Alkan, Nov 22 2015