|
3, 5, 7, 19, 47, 73, 97, 131, 223, 229, 257, 263, 277, 331, 367, 389, 397, 487, 577, 641, 643, 683, 701, 739, 743, 757, 797, 857, 877, 1031, 1291, 1297, 1423, 1451, 1543, 1579, 1637, 1697, 1723, 1823, 1949, 2039, 2081, 2381, 2477, 2539, 2617, 2659, 2689, 2749
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Select[Range[3000], PrimeQ[Sum[Prime[Prime[i]], {i, 1, #}]]&], PrimeQ[ # ] &] (* Stefan Steinerberger, Jun 23 2007 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|