A259315 Nonprimes containing no zeros in decimal representation.

1, 4, 6, 8, 9, 12, 14, 15, 16, 18, 21, 22, 24, 25, 26, 27, 28, 32, 33, 34, 35, 36, 38, 39, 42, 44, 45, 46, 48, 49, 51, 52, 54, 55, 56, 57, 58, 62, 63, 64, 65, 66, 68, 69, 72, 74, 75, 76, 77, 78, 81, 82, 84, 85, 86, 87, 88, 91, 92, 93, 94, 95, 96, 98, 99, 111

Offset: 1

Author

Reinhard Zumkeller, Jun 24 2015

Keywords

• nonn
• base

Comments

Intersection of A052382 and A018252;

A168046(a(n)) * (1 - A010051(a(n))) = 1.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A010051, A018252, A052382, A168046, A038618.

Programs

Haskell

a259315 n = a259315_list !! (n-1)
a259315_list = filter ((== 0) . a010051') a052382_list

Mathematica

Select[Range[150],!PrimeQ[#]&&DigitCount[#,10,0]==0&] (* Harvey P. Dale, Sep 18 2024 *)

PARI

isok(m) = !isprime(m) && vecmin(digits(m)); \\ Michel Marcus, Jan 23 2022