A101302 Primes of the form Sum_{k=1..n} phi(prime(k)).

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

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

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

Sequence in context: A084898 A147380 A146606 * A102948 A232533 A061263

Adjacent sequences: A101299 A101300 A101301 * A101303 A101304 A101305

Keyword

nonn,easy

Author

Jorge Coveiro, Dec 22 2004

Extensions

Edited and extended by Robert G. Wilson v, Dec 22 2004

Status

approved