A024507 Numbers that are the sum of 2 distinct nonzero squares (with repetition).
5, 10, 13, 17, 20, 25, 26, 29, 34, 37, 40, 41, 45, 50, 52, 53, 58, 61, 65, 65, 68, 73, 74, 80, 82, 85, 85, 89, 90, 97, 100, 101, 104, 106, 109, 113, 116, 117, 122, 125, 125, 130, 130, 136, 137, 145, 145, 146, 148, 149, 153, 157, 160, 164, 169, 170, 170, 173, 178, 180, 181, 185, 185, 193
Offset: 1
Keywords
Links
Programs
-
Mathematica
nn=10000;A024507=Table[x^2+y^2,{x,Sqrt[nn]},{y,x+1,Sqrt[nn-x^2]}]//Flatten//Sort (* Zak Seidov, Apr 07 2011*)
Extensions
Name edited by Zak Seidov, Apr 08 2011