A062863 Numbers which cannot be written as sums of squares of consecutive numbers (even allowing squares of negative numbers).
3, 7, 8, 11, 12, 17, 18, 20, 21, 22, 23, 24, 26, 27, 32, 33, 34, 37, 38, 39, 40, 42, 43, 45, 46, 47, 48, 51, 52, 53, 57, 58, 59, 62, 63, 65, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 78, 79, 80, 82, 83, 84, 87, 88, 89, 93, 94, 95, 97, 98, 99, 101, 102, 103, 104, 106, 107, 108
Offset: 0
Keywords
Programs
-
Mathematica
Complement[Range[150],Union[Flatten[Table[Union[Total/@(Partition[ Range[-50,50],i,1]^2)],{i,20}]]]] (* Harvey P. Dale, Jan 04 2012 *)