login
A089894
Sum of primes <= p is even and sum is twice a prime.
1
5, 17, 257, 277, 313, 379, 487, 751, 773, 811, 1579, 1787, 2081, 2467, 2557, 2671, 2689, 3037, 3343, 3559, 4091, 4159, 4373, 4451, 4567, 4793, 5039, 5441, 6037, 6113, 6131, 6269, 6337, 6547, 6719, 6829, 7193, 7351, 7547, 7649, 8039, 8059, 9239, 9859
OFFSET
0,1
LINKS
EXAMPLE
17 is in the sequence because 2+3+5+7+11+13+17 = 58 and 58 = 2 * 29 and 29 is prime.
MATHEMATICA
Prime[#]&/@Flatten[Position[Accumulate[Prime[Range[1300]]], _?(EvenQ[#] && PrimeQ[#/2]&)]] (* Harvey P. Dale, Oct 04 2012 *)
PROG
(PARI) s=2; forprime(p=3, 15000, s=s+p; if(s%2, i=1, if(isprime(s/2), print1(p, ", "), )))
CROSSREFS
Sequence in context: A195570 A281504 A191500 * A077718 A235461 A271660
KEYWORD
easy,nonn
AUTHOR
Randy L. Ekl, Jan 10, 2004
STATUS
approved