A363319 Squares (A000290) and centered squares (A001844) sorted, including duplicates.

1, 1, 4, 5, 9, 13, 16, 25, 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, 841, 900, 925, 961, 1013, 1024

Offset: 1

Author

Clark Kimberling, May 27 2023

Keywords

• nonn
• easy

Comments

This sequence consists of the numbers in A363267 arranged in nondecreasing order, including duplicates, which are given by A008844 = (1, 25, 841, 28561, ...).

Crossrefs

Cf. A000290, A001844, A363267, A363282.

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 *)
s = Sort[u] (* this sequence *)

Extensions

Incorrect recurrence removed by Georg Fischer, Aug 14 2023