|
Search: id:A122136
|
|
|
| A122136 |
|
Numerator of Sum[ Prime[k]^2, {k,1,n}] / Product[ Prime[k], {k,1,n}] ] = Numerator[ A024450[n] / A002110[n] ]. |
|
+0
4
|
|
| 2, 13, 19, 29, 104, 29, 111, 79, 778, 47, 73, 163, 1068, 359, 5233, 885, 142, 20477, 219, 811, 2524, 13859, 2203, 56387, 10966, 75997, 3331, 6537, 54968, 1, 23139, 4457, 87382, 681, 15449, 239087, 108, 58061, 159097, 116041, 1882, 995, 74901, 7487
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
a(n) = 1 for n = {30,123,195,214,248,300,304,335,343,350,364,367,414,443,543,570,579,584,590,612,671,691,...} = A122137. a(n) is prime for n = {1,2,3,4,6,8,10,11,12,14,15,18,20,22,23,26,27,32,36,...} = A122138. Prime a(n) are listed in A122139 = {2,13,19,29,29,79,47,73,163,359,5233,20477,811,13859,2203,75997,3331,...}.
|
|
FORMULA
|
a(n) = Numerator[ Sum[ Prime[k]^2, {k,1,n}] / Product[ Prime[k], {k,1,n}] ].
|
|
MATHEMATICA
|
Table[Numerator[Sum[Prime[k]^2, {k, 1, n}]/Product[Prime[k], {k, 1, n}]], {n, 1, 100}]
|
|
CROSSREFS
|
Cf. A122137, A122138, A122139.
Sequence in context: A018485 A097234 A122139 this_sequence A067208 A020601 A027705
Adjacent sequences: A122133 A122134 A122135 this_sequence A122137 A122138 A122139
|
|
KEYWORD
|
frac,nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Aug 21 2006
|
|
|
Search completed in 0.002 seconds
|
