A239968 0 unless n is a nonprime A018252(k) when a(n) = k.

1, 0, 0, 2, 0, 3, 0, 4, 5, 6, 0, 7, 0, 8, 9, 10, 0, 11, 0, 12, 13, 14, 0, 15, 16, 17, 18, 19, 0, 20, 0, 21, 22, 23, 24, 25, 0, 26, 27, 28, 0, 29, 0, 30, 31, 32, 0, 33, 34, 35, 36, 37, 0, 38, 39, 40, 41, 42, 0, 43, 0, 44, 45, 46, 47, 48, 0, 49, 50, 51, 0, 52

Offset

1,4

Comments

a(n) = A026233(n) - A049084(n);

A057427(a(n)) = A005171(n).

Links

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

Formula

a(n) = A066246(n) - A010051(n) + 1.

Prog

(Haskell)
import Data.List (unfoldr, genericIndex)
a239968 n = genericIndex a239968_list (n - 1)
a239968_list = unfoldr c (1, 1, a018252_list) where
   c (i, z, xs'@(x:xs)) | i == x = Just (z, (i + 1, z + 1, xs))
                        | i /= x = Just (0, (i + 1, z, xs'))

Crossrefs

Cf. A066246, A049084.

Sequence in context: A008820 A357475 A066682 * A362369 A320311 A240140

Adjacent sequences: A239965 A239966 A239967 * A239969 A239970 A239971

Keyword

nonn

Author

Reinhard Zumkeller, Mar 30 2014

Status

approved