OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
ps = Prime[Range[1000]]; t = {}; s = 0; Do[s = s + Floor[Sqrt[p]]; If[PrimeQ[s], AppendTo[t, p]], {p, ps}]; t (* T. D. Noe, Feb 21 2013 *)
PROG
(PARI) s=0; forprime(p=2, 1e4, if(isprime(s+=sqrtint(p)), print1(p", "))) \\ Charles R Greathouse IV, Feb 21 2013
(Magma) [NthPrime(i): i in [1..400] | IsPrime(S) where S is &+[Floor(Sqrt(NthPrime(k))): k in [1..i]]]; // Bruno Berselli, Feb 21 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Daniel J. Hardisky, Feb 20 2013
STATUS
approved