A241836 Squares-greedy summable squares.

25, 49, 81, 121, 169, 225, 324, 361, 441, 529, 625, 729, 900, 1024, 1089, 1225, 1369, 1521, 1681, 1849, 2116, 2304, 2401, 2601, 2809, 3025, 3249, 3481, 3721, 3969, 4356, 4624, 4761, 5041, 5329, 5625, 5929, 6241, 6561, 6889, 7225, 7569, 8100, 8464, 8649, 9025

Offset

2,1

Comments

Greedy summability is introduced at A241833.

Links

Clark Kimberling, Table of n, a(n) for n = 2..1000

Example

5^2 = 4^2 + 3^2; 7^2 = 6^2 + 3^2 + 3^2; 9^2 = 8^2 + 4^2 + 1^2.

Mathematica

z = 200;  s = Table[n^2, {n, 1, z}]; t = Table[{s[[n]], #, Total[#] == s[[n]]} &[DeleteCases[-Differences[FoldList[If[#1 - #2 >= 0, #1 - #2, #1] &, s[[n]], Reverse[Select[s, # < s[[n]] &]]]], 0]], {n, z}]; r[n_] := s[[n]] - Total[t[[n]][[2]]]; tr =  Table[r[n], {n, 2, z}]  (* A241833 *)
c = Table[Length[t[[n]][[2]]], {n, 2, z}] (* A241834 *)
f = 1 + Flatten[Position[tr, 0]]  (* A241835 *)
f^2  (* A241836 *) (* Peter J. C. Moses, May 06 2014 *)

Crossrefs

Cf. A241832, A241835, A241835, A000290.

Sequence in context: A018936 A212190 A324871 * A110484 A110013 A109861

Adjacent sequences: A241833 A241834 A241835 * A241837 A241838 A241839

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2014

Status

approved