A391014 Indices of zeroless primes.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78

Offset

1,2

Links

Michel Marcus, Table of n, a(n) for n = 1..10000

Formula

a(n) = A000720(A038618(n)).

Mathematica

Select[Range[80], FreeQ[IntegerDigits@ Prime[#], 0] &] (* Michael De Vlieger, Dec 23 2025 *)

Prog

(PARI) apply(primepi, select(x->vecmin(digits(x)), primes(100)))

Crossrefs

Cf. A000720, A038618.

Sequence in context: A032521 A246102 A243903 * A296867 A387909 A228144

Adjacent sequences: A391011 A391012 A391013 * A391015 A391016 A391017

Keyword

nonn,base

Author

Michel Marcus, Dec 23 2025

Status

approved