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

Author

Paolo Xausa, May 24 2024

Keywords

• nonn
• base
• easy

Comments

Zeroless analog of the positive squares.

Links

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

Crossrefs

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

Row n = 4 of A373169.

Programs

Mathematica

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