%I #19 Aug 14 2023 06:53:01
%S 1,1,4,5,9,13,16,25,25,36,41,49,61,64,81,85,100,113,121,144,145,169,
%T 181,196,221,225,256,265,289,313,324,361,365,400,421,441,481,484,529,
%U 545,576,613,625,676,685,729,761,784,841,841,900,925,961,1013,1024
%N Squares (A000290) and centered squares (A001844) sorted, including duplicates.
%C This sequence consists of the numbers in A363267 arranged in nondecreasing order, including duplicates, which are given by A008844 = (1, 25, 841, 28561, ...).
%t c[1] = 1; c[2] = 1;
%t c[n_] := If[OddQ[n], c[n - 2] + n, 2 c[n - 1] - n + 1]
%t u = Table[c[n], {n, 1, 120}] (* A363267 *)
%t s = Sort[u] (* this sequence *)
%Y Cf. A000290, A001844, A363267, A363282.
%K nonn,easy
%O 1,3
%A _Clark Kimberling_, May 27 2023
%E Incorrect recurrence removed by _Georg Fischer_, Aug 14 2023
|