Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #10 Jun 12 2023 11:51:07
%S 1,4,5,9,13,16,25,36,41,49,61,64,81,85,100,113,121,144,145,169,181,
%T 196,221,225,256,265,289,313,324,361,365,400,421,441,481,484,529,545,
%U 576,613,625,676,685,729,761,784,841,900,925,961,1013,1024,1089,1105
%N Squares (A000290) and centered squares (A001844), in increasing order (i.e., sorted and without duplicates).
%C This sequence consists of the numbers in A363267 arranged in increasing order. Unlike A363267, this is not a linear recurrence sequence; see A363319.
%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 Union[u] (* A363282 *)
%Y Cf. A000290, A001844, A363267, A363319.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 25 2023
%E Definition corrected by _N. J. A. Sloane_, Jun 12 2023