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,3

Comments

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

Links

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

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

Crossrefs

Cf. A000290, A001844, A363267, A363282.

Sequence in context: A022425 A277549 A331531 * A363267 A328223 A363282

Adjacent sequences: A363316 A363317 A363318 * A363320 A363321 A363322

Keyword

nonn,easy

Author

Clark Kimberling, May 27 2023

Extensions

Incorrect recurrence removed by Georg Fischer, Aug 14 2023

Status

approved