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

Author

Clark Kimberling, May 25 2023

Keywords

• nonn

Comments

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

Crossrefs

Cf. A000290, A001844, A363267, A363319.

Programs

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 *)

Extensions

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