A370812 a(1) = 1; for n >= 2, a(n) = noz(a(n-1) + 2*n - 1), where noz(n) = A004719(n).

1, 4, 9, 16, 25, 36, 49, 64, 81, 1, 22, 45, 7, 34, 63, 94, 127, 162, 199, 238, 279, 322, 367, 414, 463, 514, 567, 622, 679, 738, 799, 862, 927, 994, 163, 234, 37, 112, 189, 268, 349, 432, 517, 64, 153, 244, 337, 432, 529, 628, 729, 832, 937, 144, 253, 364, 477

Offset

1,2

Comments

Zeroless analog of the positive squares.

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

noz[n_] := FromDigits[DeleteCases[IntegerDigits[n], 0]];
Block[{n = 1}, NestList[noz[++n*2 - 1 + #] &, 1, 100]]

Crossrefs

Cf. A000290, A004719, A243657, A243658, A373171, A373172.

Row n = 4 of A373169.

Sequence in context: A069940 A153211 A118881 * A277342 A098733 A068522

Adjacent sequences: A370809 A370810 A370811 * A370813 A370814 A370815

Keyword

nonn,base,easy

Author

Paolo Xausa, May 24 2024

Status

approved