|
Search: id:A002125
|
|
|
| A002125 |
|
a(n) = Sum_{k=0..n} f(k)*f(n-k) where f(k) = A002124(k).
(Formerly M0024 N0006)
|
|
+0
3
|
|
| 1, 0, 0, 2, 0, 2, 3, 2, 6, 4, 9, 14, 11, 26, 29, 34, 62, 68, 99, 140, 169, 252, 322, 430, 607, 764, 1059, 1424, 1845, 2546, 3344, 4442, 6002, 7876, 10575, 14058, 18575, 24878, 32842, 43630, 58073, 76658, 101913, 134964, 178468, 236776, 312874, 414094, 547947, 723646
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
Arises in studying the Goldbach conjecture.
|
|
REFERENCES
|
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 I_n]
|
|
LINKS
|
N. J. A. Sloane, Table of n, a(n) for n = 0..1000
|
|
MAPLE
|
M:=120; f:=array(0..M); f[0]:=1; f[1]:=0; f[2]:=0; for n from 3 to M do t1:=0; for k from 2 to n do p := ithprime(k); if p <= n then t1 := t1 + f[n-p]; fi; od: f[n]:=t1; od: # f is A002124
A002125:=array(0..M); for n from 0 to M do A002125[n]:=add(f[t]*f[n-t], t=0..n); od: [seq(A002125[n], n=0..M)];
|
|
CROSSREFS
|
Sequence in context: A104513 A033769 A074660 this_sequence A135356 A003987 A063180
Adjacent sequences: A002122 A002123 A002124 this_sequence A002126 A002127 A002128
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas
|
|
EXTENSIONS
|
Edited by njas, Dec 03 2006
|
|
|
Search completed in 0.005 seconds
|
