OFFSET
1,1
REFERENCES
Zak Seidov, Posting to Seq Fan mailing list, Nov 28 2005.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..2419
MAPLE
a[0]:=9: S:=a[0]: for n from 1 to 30 do S1:=convert(S, base, 10): c:=nops(S1): a[n]:=add(S1[c+1-j]*10^(j-1), j=1..c): S:=S+a[n]: od: seq(a[n], n=0..30); # Emeric Deutsch, Feb 03 2006
MATHEMATICA
Nest[Append[#, IntegerReverse@ Total@ #] &, {9}, 27] (* Michael De Vlieger, Sep 09 2021 *)
PROG
(Python)
def aupton(terms):
alst, s = [9], 9
for n in range(2, terms+1):
alst.append(int(str(s)[::-1]))
s += alst[-1]
return alst
print(aupton(28)) # Michael S. Branicky, Sep 09 2021
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Nov 30 2005
EXTENSIONS
More terms from Emeric Deutsch, Feb 03 2006
STATUS
approved
