|
%I #19 May 20 2023 05:32:43
%S 1,8,24,32,48,96,104,144,192,312,336,576,768,960,1152,1344,1872,1920,
%T 2496,2976,3072,3744,4608,5760,6912,7680,8064,9672,10368,10752,11520,
%U 14976,15360,17424,17784,18432,22464,23808,26208,29760,29952,32832,33696,34944,35712,37440,46080
%N Records in A000118.
%H David A. Corneth, <a href="/A128690/b128690.txt">Table of n, a(n) for n = 1..392</a>
%F a(n) = A000118(A128689(n)). - _Michel Marcus_, May 19 2023
%t f[n_] := SquaresR[4, n];
%t 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 *)
%Y Cf. A000118 (number of ways of writing n as a sum of 4 squares), A128689.
%K nonn
%O 1,2
%A _Jonathan Vos Post_, Mar 21 2007
%E Data corrected by _Giovanni Resta_, Jun 18 2016
%E More terms from _Jean-François Alcover_, May 18 2023
|
