cp's OEIS Frontend

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.

A002123 a(1) = 0, a(2) = 0; for n > 2, a(n) - a(n-3) - a(n-5) - ... - a(n-p) = n if n is prime, otherwise = 0, where p = largest prime < n.

This page as a plain text file.
%I A002123 M2198 N0876 #17 Dec 26 2016 02:01:46
%S A002123 0,0,3,0,5,-3,7,-8,3,-15,22,-15,39,-35,38,-72,85,-111,152,-175,241,
%T A002123 -308,414,-551,655,-897,1164,-1463,2001,-2538,3286,-4296,5503,-7259,
%U A002123 9357,-12147,15910,-20406,26640,-34703,44854,-58481,75809,-98340
%N A002123 a(1) = 0, a(2) = 0; for n > 2, a(n) - a(n-3) - a(n-5) - ... - a(n-p) = n if n is prime, otherwise = 0, where p = largest prime < n.
%C A002123 Arises in studying the Goldbach conjecture.
%D A002123 P. A. MacMahon, Properties of prime numbers deduced from the calculus of symmetric functions, Proc. London Math. Soc., 23 (1923), 290-316. [Coll. Papers, Vol. II, pp. 354-382] [The sequence f_n]
%D A002123 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D A002123 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H A002123 T. D. Noe, <a href="/A002123/b002123.txt">Table of n, a(n) for n = 1..1000</a>
%H A002123 P. A. MacMahon, <a href="http://plms.oxfordjournals.org/content/s2-23/1/290.extract">Properties of prime numbers deduced from the calculus of symmetric functions</a>, Proc. London Math. Soc., 23 (1923), 290-316. = Coll. Papers, II, pp. 354-380.
%H A002123 <a href="/index/Go#Goldbach">Index entries for sequences related to Goldbach conjecture</a>
%o A002123 (Haskell)
%o A002123 import Data.List (genericIndex)
%o A002123 a002123 n = genericIndex a002123_list (n - 1)
%o A002123 a002123_list = 0 : 0 : f 3 where
%o A002123    f x = y : f (x + 1) where
%o A002123      y = a061397 x -
%o A002123          sum (map (a002123 . (x -)) $ takeWhile (< x) a065091_list)
%o A002123 -- _Reinhard Zumkeller_, Mar 21 2014
%Y A002123 Cf. A065091, A061397.
%K A002123 sign
%O A002123 1,3
%A A002123 _N. J. A. Sloane_
%E A002123 Extended with signs by _T. D. Noe_, Dec 05 2006