This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A214390 #16 May 27 2025 11:11:36
%S A214390 1,10,101,187,149,1021,33016,6845,37447,343471,217843,269387,652735,
%T A214390 658741,84404851,594869,99801,19571431,845870737,6799977641,
%U A214390 826494610001,4703352797483,5311077568679,5955647363593,5974287995603,2396798638405,2403189712237
%N A214390 Numerators of Sum_{n>=1} 1/A045542(n).
%C A214390 Goldbach-Euler: sum a(n)/A214391(n) -> 1, n -> oo.
%H A214390 Reinhard Zumkeller, <a href="/A214390/b214390.txt">Table of n, a(n) for n = 1..1000</a>
%H A214390 L. Bibiloni, P. Viader, and J. Paradis, <a href="https://web.archive.org/web/20240329125701/https://www.maa.org/sites/default/files/pdf/upload_library/22/Ford/bibiloni206.pdf">On a Series of Goldbach and Euler</a>, Amer. Math. Monthly, 113 (2006), pp. 206-220.
%e A214390 . n a(n) / A214391(n)
%e A214390 . ----------------------------
%e A214390 . 1 3.0
%e A214390 . 10 1.1827024697863866
%e A214390 . 100 1.0142002275801738
%e A214390 . 1000 1.0011756130379812 .
%o A214390 (Haskell)
%o A214390 import Data.Ratio ((%), numerator)
%o A214390 a214390 n = a214390_list !! (n-1)
%o A214390 a214390_list = map numerator $ scanl1 (+) $ map (1 %) a045542_list
%Y A214390 Cf. A214391 (denominators).
%K A214390 nonn,frac
%O A214390 1,2
%A A214390 _Reinhard Zumkeller_, Jul 15 2012