OFFSET

1,3

COMMENTS

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

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, May 27 2023

EXTENSIONS

Incorrect recurrence removed by Georg Fischer, Aug 14 2023

STATUS

approved