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,2

Links

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

Formula

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

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 *)

Crossrefs

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

Sequence in context: A044069 A028628 A333427 * A283078 A319528 A140403

Adjacent sequences: A128687 A128688 A128689 * A128691 A128692 A128693

Keyword

nonn

Author

Jonathan Vos Post, Mar 21 2007

Extensions

Data corrected by Giovanni Resta, Jun 18 2016

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

Status

approved