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

Author

Zak Seidov, Jun 23 2003

Keywords

• easy
• nonn
• base

Examples

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

Links

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

Crossrefs

Cf. A000040, A007498, A038603.

Programs

Mathematica

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

Extensions

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