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

Links

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

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

Cf. A049084, A091633, A136333.

Sequence in context: A194831 A111688 A058049 * A303393 A039085 A302433

Adjacent sequences: A091868 A091869 A091870 * A091872 A091873 A091874

Keyword

easy,nonn,base

Author

Ray Chandler, Feb 07 2004

Status

approved