OFFSET
1,1
COMMENTS
The primes in this sequence are listed in A103739.
a(n) mod 4 = 1. See A227697 for related sequence. - Richard R. Forberg, Sep 22 2013
The squares of primes in this sequence form the subsequence A001248 \ {4}. - Bernard Schott, Jul 09 2022
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
Take[Union[Total[#]/2&/@(Tuples[Prime[Range[2, 20]], 2]^2)], 60] (* Harvey P. Dale, Dec 28 2014 *)
PROG
(PARI) list(lim)=my(v=List(), p2); lim\=1; if(lim<9, lim=8); forprime(p=3, sqrtint(2*lim-9), p2=p^2; forprime(q=3, min(sqrtint(2*lim-p2), p), listput(v, (p2+q^2)/2))); Set(v) \\ Charles R Greathouse IV, Feb 14 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Sep 03 2008
STATUS
approved