OFFSET
1,2
COMMENTS
Goldbach-Euler: sum a(n)/A214391(n) -> 1, n -> oo.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
L. Bibiloni, P. Viader, and J. Paradis, On a Series of Goldbach and Euler, Amer. Math. Monthly, 113 (2006), pp. 206-220.
EXAMPLE
. n a(n) / A214391(n)
. ----------------------------
. 1 3.0
. 10 1.1827024697863866
. 100 1.0142002275801738
. 1000 1.0011756130379812 .
PROG
(Haskell)
import Data.Ratio ((%), numerator)
a214390 n = a214390_list !! (n-1)
a214390_list = map numerator $ scanl1 (+) $ map (1 %) a045542_list
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Jul 15 2012
STATUS
approved