|
|
A103686
|
|
Even semiprimes of the form p^2 + q^2, where p and q are primes.
|
|
0
|
|
|
34, 58, 74, 146, 178, 194, 218, 298, 314, 386, 458, 482, 538, 554, 698, 818, 866, 1082, 1202, 1322, 1418, 1538, 1658, 1706, 1858, 1874, 2018, 2042, 2138, 2218, 2234, 2258, 2498, 2642, 2818, 2858, 2978, 3098, 3218, 3338, 3506, 3578, 3602
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
p^2 + q^2 = 2r with r equal [(p+q)/2]^2 + [q -(p+q)/2]^2.
|
|
MATHEMATICA
|
Select[Union[Total[#^2]&/@Tuples[Prime[Range[20]], 2]], EvenQ[#] && PrimeOmega[#] == 2&] (* Harvey P. Dale, Jun 18 2015 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|