OFFSET
0,3
COMMENTS
Zeroless analog of triangular numbers.
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 0..5000
MAPLE
noz:=proc(n) local a, t1, i, j; a:=0; t1:=convert(n, base, 10); for i from 1 to nops(t1) do j:=t1[nops(t1)+1-i]; if j <> 0 then a := 10*a+j; fi; od: a; end;
t1:=[0]; for n from 1 to 50 do t1:=[op(t1), noz(n+t1[n])]; od: t1;
MATHEMATICA
noz[n_] := FromDigits[DeleteCases[IntegerDigits[n], 0]];
Block[{n = 0}, NestList[noz[++n+#] &, 0, 100]] (* Paolo Xausa, Apr 17 2024 *)
PROG
(Python)
from itertools import count, islice
def noz(n): return int(str(n).replace("0", ""))
def agen(): # generator of terms
yield (an:=0)
yield from (an:=noz(n+an) for n in count(1))
print(list(islice(agen(), 68))) # Michael S. Branicky, Jul 02 2024
CROSSREFS
AUTHOR
N. J. A. Sloane, Jun 11 2014
STATUS
approved