OFFSET
1,1
COMMENTS
Semiprimes in A069484. - Zak Seidov, Apr 11 2014
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
34 = 2*17 = 3^2+5^2, 74 = 2*37 = 5^2+7^2, 458 = 2*229 = 13^2+17^2.
MATHEMATICA
Select[(Total/@Partition[Prime[Range[500]]^2, 2, 1]), PrimeOmega[#]==2&] (* Harvey P. Dale, Sep 23 2012 *)
PROG
(PARI) v=List(); p=3; forprime(q=5, 1e4, if(isprime((p^2+q^2)\2), listput(v, p^2+q^2)); p=q); Vec(v) \\ Charles R Greathouse IV, Sep 23 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Sep 09 2012
STATUS
approved