OFFSET
0,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 0..17
MAPLE
g:= proc(n) op(convert(n+6, base, 10)) end proc:
L[0]:= [0]:
for n from 1 to 12 do L[n]:= map(g, L[n-1]) od:
map(t -> add(t[i]*10^(i-1), i=1..nops(t)), [seq(L[i], i=0..12)]): # Robert Israel, Jan 26 2020
MATHEMATICA
Nest[Append[#, FromDigits@ Flatten@ IntegerDigits[IntegerDigits@ #[[-1]] + 6]] &, {0}, 11] (* Michael De Vlieger, Jan 26 2020 *)
NestList[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]+6)]]&, 0, 15] (* Harvey P. Dale, Jan 10 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 08 2001
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001
Corrected by Robert Israel, Jan 26 2020
STATUS
approved