The OEIS is supported by the many generous donors to the OEIS Foundation.

4

`%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
`