A128690 Records in A000118.

1, 8, 24, 32, 48, 96, 104, 144, 192, 312, 336, 576, 768, 960, 1152, 1344, 1872, 1920, 2496, 2976, 3072, 3744, 4608, 5760, 6912, 7680, 8064, 9672, 10368, 10752, 11520, 14976, 15360, 17424, 17784, 18432, 22464, 23808, 26208, 29760, 29952, 32832, 33696, 34944, 35712, 37440, 46080

Offset: 1

Author

Jonathan Vos Post, Mar 21 2007

Keywords

• nonn

Links

• David A. Corneth, Table of n, a(n) for n = 1..392

Crossrefs

Cf. A000118 (number of ways of writing n as a sum of 4 squares), A128689.

Programs

Mathematica

f[n_] := SquaresR[4, n];
Module[{record = -1, n}, Reap[For[n = 0, n <= 2000, n++, If[f[n] > record, record = f[n]; Sow[record]]]][[2, 1]]] (* Jean-François Alcover, May 18 2023 *)

Formula

a(n) = A000118(A128689(n)). - Michel Marcus, May 19 2023

Extensions

Data corrected by Giovanni Resta, Jun 18 2016

More terms from Jean-François Alcover, May 18 2023