OFFSET
1,1
COMMENTS
Inspired by A075465.
No other terms < 10^9.
All terms are even. - Charles R Greathouse IV, Oct 09 2015
EXAMPLE
MATHEMATICA
p = 2; k = s = 0; lst = {}; While[k < 100000001, s = s + p; If[ 2Mod[s, ++k] == k, AppendTo[lst, k]; Print[k]]; p = NextPrime@ p; k++]
PROG
(PARI) n=s=0; forprime(p=2, , s+=p; n++; if(n%2==0 && s%n == n/2, print1(n", "))) \\ Charles R Greathouse IV, Oct 09 2015
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Robert G. Wilson v, Oct 09 2015
STATUS
approved