login
A091871
A091633 indexed by A000040.
2
2, 4, 5, 6, 7, 8, 11, 12, 20, 21, 22, 25, 30, 32, 33, 34, 40, 41, 43, 44, 45, 46, 64, 65, 66, 67, 68, 74, 75, 78, 128, 130, 131, 137, 139, 156, 157, 159, 164, 165, 167, 168, 187, 193, 196, 215, 220, 222, 270, 275, 293, 294, 295, 298, 299, 301, 302, 303, 444, 446
OFFSET
1,1
LINKS
FORMULA
a(n)=k such that A000040(k) = A091633(n).
a(n) = A049084(A091633(n)). - Reinhard Zumkeller, Jul 18 2014
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