A363282 - 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