OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
PROG
(Haskell)
a091871 n = a091871_list !! (n-1)
a091871_list = f [1..] a000040_list where
f (i:is) (p:ps) = if (null $ show p `intersect` "024568")
then i : f is ps else f is ps
-- Reinhard Zumkeller, Jul 18 2014
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Ray Chandler, Feb 07 2004
STATUS
approved