|
Search: id:A122137
|
|
| |
|
| 30, 123, 195, 214, 248, 300, 304, 335, 343, 350, 364, 367, 414, 443, 543, 570, 579, 584, 590, 612, 671, 691, 706, 707, 734, 780, 791, 799, 806, 810, 827, 836, 852, 880, 938, 960, 976, 1015, 1055, 1147, 1168, 1190, 1195, 1199, 1200, 1210, 1230, 1231, 1250
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
FORMULA
|
A122136[ a(n) ] = 1.
|
|
MATHEMATICA
|
Do[f=Numerator[Sum[Prime[k]^2, {k, 1, n}]/Product[Prime[k], {k, 1, n}]]; If[f==1, Print[n]], {n, 1, 10000}]
|
|
CROSSREFS
|
Cf. A024450, A002110, A122136, A122138, A122139.
Sequence in context: A042764 A042766 A042768 this_sequence A003901 A010744 A044362
Adjacent sequences: A122134 A122135 A122136 this_sequence A122138 A122139 A122140
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Aug 21 2006
|
|
|
Search completed in 0.002 seconds
|
