A084368 Numbers k such that prime(k) does not contain the digit 1.

1, 2, 3, 4, 9, 10, 12, 14, 15, 16, 17, 19, 21, 22, 23, 24, 25, 48, 49, 50, 51, 52, 55, 56, 57, 59, 61, 62, 63, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 80, 84, 85, 86, 87, 88, 90, 91, 92, 93, 95, 96, 97, 99, 101, 102, 103, 104, 106, 107, 108, 109, 111, 117, 118, 119, 120

Offset

1,2

Links

Zak Seidov, Table of n, a(n) for n = 1..1000

Example

99 is a term because prime(99) = 523 is unit-free.

Mathematica

Select[ Range[120], Count[ IntegerDigits[ Prime[ # ]], 1] == 0 & ]
Select[Range[120], DigitCount[Prime[#], 10, 1]==0&] (* Harvey P. Dale, Jun 20 2023 *)

Crossrefs

Cf. A000040, A007498, A038603.

Sequence in context: A250483 A294485 A332772 * A007498 A073338 A200260

Adjacent sequences: A084365 A084366 A084367 * A084369 A084370 A084371

Keyword

easy,nonn,base

Author

Zak Seidov, Jun 23 2003

Extensions

Edited and extended by Robert G. Wilson v, Jun 24 2003

Status

approved