A363282 Squares (A000290) and centered squares (A001844), in increasing order (i.e., sorted and without duplicates).

1, 4, 5, 9, 13, 16, 25, 36, 41, 49, 61, 64, 81, 85, 100, 113, 121, 144, 145, 169, 181, 196, 221, 225, 256, 265, 289, 313, 324, 361, 365, 400, 421, 441, 481, 484, 529, 545, 576, 613, 625, 676, 685, 729, 761, 784, 841, 900, 925, 961, 1013, 1024, 1089, 1105

Offset

1,2

Comments

This sequence consists of the numbers in A363267 arranged in increasing order. Unlike A363267, this is not a linear recurrence sequence; see A363319.

Links

Table of n, a(n) for n=1..54.

Mathematica

c[1] = 1; c[2] = 1;
c[n_] := If[OddQ[n], c[n - 2] + n, 2 c[n - 1] - n + 1]
u = Table[c[n], {n, 1, 120}]  (* A363267 *)
Union[u] (* A363282 *)

Crossrefs

Cf. A000290, A001844, A363267, A363319.

Sequence in context: A363319 A363267 A328223 * A116045 A096818 A282467

Adjacent sequences: A363279 A363280 A363281 * A363283 A363284 A363285

Keyword

nonn

Author

Clark Kimberling, May 25 2023

Extensions

Definition corrected by N. J. A. Sloane, Jun 12 2023

Status

approved