OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
a(n) + nextprime(a(n)) = A206329(n).
EXAMPLE
13 + 17 = 30 = A206329(2).
MATHEMATICA
Prime[Select[Range[200], Abs[MoebiusMu[Prime[#] + Prime[# + 1]]] == 1 &]] (* Alonso del Arte, Feb 08 2012 *)
PROG
(Haskell)
a206462 n = a206462_list !! (n-1)
a206462_list = map (a000040 . (+ 1)) $
elemIndices 1 $ map a008966 a001043_list
-- Reinhard Zumkeller, Feb 08 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 07 2012
STATUS
approved