OFFSET
1,2
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
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Jun 24 2015
STATUS
approved