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
KEYWORD
nonn,base,easy
AUTHOR
Paolo Xausa, May 24 2024
STATUS
approved