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,2

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

Mathematica

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

Prog

(Haskell)
a259315 n = a259315_list !! (n-1)
a259315_list = filter ((== 0) . a010051') a052382_list
(PARI) isok(m) = !isprime(m) && vecmin(digits(m)); \\ Michel Marcus, Jan 23 2022

Crossrefs

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

Sequence in context: A013920 A179891 A064590 * A211771 A211772 A353355

Adjacent sequences: A259312 A259313 A259314 * A259316 A259317 A259318

Keyword

nonn,base

Author

Reinhard Zumkeller, Jun 24 2015

Status

approved