OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000
EXAMPLE
86+(1+8+6) = 101.
101+(1+0+1) = 103.
103+(1+0+3) = 107.
MAPLE
a:= proc(n) option remember; local k, i; if n<2 then n elif n=2 then b(2):= [2, 1, 0]; 2 else k:= a(n-1) +add (i, i=b(n-1)); b(n):= [convert (k, base, 10)[], b(n-1)[]][1..3]; k fi end: seq (a(n), n=0..80); # Alois P. Heinz, Aug 13 2009
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Eric Angelini, Feb 06 2005
EXTENSIONS
Corrected and extended by Alois P. Heinz, Aug 13 2009
STATUS
approved