A061520 a(0) = 0; a(n) is obtained by incrementing each digit of a(n-1) by 6.

0, 6, 12, 78, 1314, 79710, 13151376, 79711791312, 1315137713157978, 797117913137971113151314, 1315137713157979131513777971179710, 797117913137971113151315797117913131315137713151376

Offset: 0

Author

Amarnath Murthy, May 08 2001

Keywords

• base
• nonn

Comments

In A061511-A061522, A061746-A061750 when the incremented digit exceeds 9 it is written as a 2-digit string. So 9+1 becomes the 2-digit string 10, etc.

Links

• Robert Israel, Table of n, a(n) for n = 0..17

Programs

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 *)

Extensions

More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001

Corrected by Robert Israel, Jan 26 2020