A091871 A091633 indexed by A000040.

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

Author

Ray Chandler, Feb 07 2004

Keywords

• easy
• nonn
• base

Links

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

Crossrefs

Cf. A049084, A091633, A136333.

Programs

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

Formula

a(n)=k such that A000040(k) = A091633(n).

a(n) = A049084(A091633(n)). - Reinhard Zumkeller, Jul 18 2014