This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A370812 #13 Jun 08 2024 09:34:24
%S A370812 1,4,9,16,25,36,49,64,81,1,22,45,7,34,63,94,127,162,199,238,279,322,
%T A370812 367,414,463,514,567,622,679,738,799,862,927,994,163,234,37,112,189,
%U A370812 268,349,432,517,64,153,244,337,432,529,628,729,832,937,144,253,364,477
%N A370812 a(1) = 1; for n >= 2, a(n) = noz(a(n-1) + 2*n - 1), where noz(n) = A004719(n).
%C A370812 Zeroless analog of the positive squares.
%H A370812 Paolo Xausa, <a href="/A370812/b370812.txt">Table of n, a(n) for n = 1..10000</a>
%t A370812 noz[n_] := FromDigits[DeleteCases[IntegerDigits[n], 0]];
%t A370812 Block[{n = 1}, NestList[noz[++n*2 - 1 + #] &, 1, 100]]
%Y A370812 Cf. A000290, A004719, A243657, A243658, A373171, A373172.
%Y A370812 Row n = 4 of A373169.
%K A370812 nonn,base,easy
%O A370812 1,2
%A A370812 _Paolo Xausa_, May 24 2024