This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A103686 #5 Jun 18 2015 16:34:41 %S A103686 34,58,74,146,178,194,218,298,314,386,458,482,538,554,698,818,866, %T A103686 1082,1202,1322,1418,1538,1658,1706,1858,1874,2018,2042,2138,2218, %U A103686 2234,2258,2498,2642,2818,2858,2978,3098,3218,3338,3506,3578,3602 %N A103686 Even semiprimes of the form p^2 + q^2, where p and q are primes. %e A103686 p^2 + q^2 = 2r with r equal [(p+q)/2]^2 + [q -(p+q)/2]^2. %t A103686 Select[Union[Total[#^2]&/@Tuples[Prime[Range[20]],2]],EvenQ[#] && PrimeOmega[#] == 2&] (* _Harvey P. Dale_, Jun 18 2015 *) %Y A103686 Cf. A103558. %K A103686 nonn %O A103686 1,1 %A A103686 _Giovanni Teofilatto_, Mar 27 2005; corrected Mar 29 2005