OFFSET
1,1
COMMENTS
Goldbach-Euler: sum A214390(n)/a(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.
PROG
(Haskell)
import Data.Ratio ((%), denominator)
a214391 n = a214391_list !! (n-1)
a214391_list = map denominator $ scanl1 (+) $ map (1 %) a045542_list
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Jul 15 2012
STATUS
approved