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 A132777 #18 Apr 20 2023 08:58:53 %S A132777 5,10,13,17,20,26,29,34,37,40,41,45,50,52,53,58,61,65,68,73,74,80,82, %T A132777 85,89,90,97,101,104,106,109,113,116,117,122,125,130,136,137,145,146, %U A132777 148,149,153,157,160,164 %N A132777 Nonsquare numbers which are the sum of 2 distinct squares. %C A132777 This is simply A001983 excluding the square numbers. %C A132777 The squares of these numbers are also sums of two distinct nonzero squares. Including them gives A004431. - _Jean-Christophe Hervé_, Nov 11 2013 %e A132777 5 = 4 + 1, and 5^2 = 16 + 9 ; 10 = 9 + 1, and 10^2 = 64 + 36. - _Jean-Christophe Hervé_, Nov 11 2013 %t A132777 selQ[n_] := !IntegerQ[Sqrt[n]] && Select[ PowersRepresentations[n, 2, 2], 0 <= #[[1]] < #[[2]]&] != {}; %t A132777 Select[Range[1000], selQ] (* _Jean-François Alcover_, Apr 20 2023 *) %Y A132777 Cf. A001983, A004431. %K A132777 easy,nonn %O A132777 1,1 %A A132777 Rob Hubbard (hubbard.r(AT)gmail.com), Oct 08 2007 %E A132777 Definition corrected by _Jean-Christophe Hervé_, Nov 11 2013