|
Search: id:A095135
|
|
| |
|
| 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 17, 22, 26, 29, 33, 37, 58, 75, 126, 127, 150, 205, 356, 424, 492, 661, 674, 697, 831, 1687, 2068
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f[n_] := Product[ Prime[i], {i, 2, n, 2}] + Product[ Prime[i], {i, 1, n, 2}]; f[1] = 2; Do[ If[ PrimeQ[ f[n]], Print[n]], {n, 2060}]
|
|
CROSSREFS
|
Cf. A095134.
Sequence in context: A084384 A119885 A007964 this_sequence A135402 A135393 A033112
Adjacent sequences: A095132 A095133 A095134 this_sequence A095136 A095137 A095138
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), May 27 2004
|
|
|
Search completed in 0.002 seconds
|
