login
A370812
a(1) = 1; for n >= 2, a(n) = noz(a(n-1) + 2*n - 1), where noz(n) = A004719(n).
4
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.
MATHEMATICA
noz[n_] := FromDigits[DeleteCases[IntegerDigits[n], 0]];
Block[{n = 1}, NestList[noz[++n*2 - 1 + #] &, 1, 100]]
CROSSREFS
Row n = 4 of A373169.
Sequence in context: A069940 A153211 A118881 * A277342 A098733 A068522
KEYWORD
nonn,base,easy
AUTHOR
Paolo Xausa, May 24 2024
STATUS
approved