OFFSET
1,1
LINKS
Ray Chandler, Table of n, a(n) for n = 1..2500
EXAMPLE
The smallest prime p such that A007504(p) is prime is 19 (sum of first 19 primes is 100 and sum of first 100 primes is 24133, which is prime). Therefore a(1) = 19.
MAPLE
N:=2000:
for n from 1 to N by 2 do
X:=add(ithprime(k), k=1..n);
Y:=add(ithprime(j), j=1..X);
if isprime(n)and isprime(Y) then print(n);
end if:
end do:
MATHEMATICA
primeSum[n_] := Sum[Prime[i], {i, n}]; Select[Range[300], PrimeQ[#] && PrimeQ[primeSum[primeSum[#]]] &] (* Amiram Eldar, Nov 07 2018 *)
PROG
(PARI) upto(n) = {my(v = vector(n+1), res = List, t = 1, setv, s = 0, Ap = 0, AAp=0, q =0); v[1] = 2; forprime(p = 3, prime(n+1), t++; v[t] = v[t-1] + p); t=1; vt = v[1]; forprime(p = 2, , AAp += p; q++; if(q == vt, if(isprime(t) && isprime(AAp), listput(res, t); print1(t", ")); t++; if(t>=n, return(res)); vt = v[t])); res} \\ David A. Corneth, Nov 09 2018
(Perl)
use ntheory qw(:all);
for (my ($i, $k) = (1, 1); ; ++$k) {
my $p = nth_prime($k);
if (is_prime sum_primes nth_prime sum_primes nth_prime $p) {
print "a($i) = $p\n"; ++$i;
}
} # Daniel Suteu, Nov 11 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore, Nov 06 2018
STATUS
approved