|
|
A101302
|
|
Primes of the form Sum_{k=1..n} phi(prime(k)).
|
|
1
|
|
|
3, 7, 13, 23, 149, 313, 619, 691, 769, 1237, 1451, 4391, 7639, 9787, 11527, 19489, 21943, 27997, 32869, 35449, 36107, 36767, 46817, 49939, 55691, 56543, 59119, 61757, 69127, 70079, 73973, 81047, 83117, 87337, 89491, 91673, 93871, 106537
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
a = {}; s = 0; Do[s = s + EulerPhi[ Prime[n]]; If[ PrimeQ[s], AppendTo[a, s]], {n, 200}]; a (* Robert G. Wilson v, Dec 22 2004 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|