login
A061520
a(0) = 0; a(n) is obtained by incrementing each digit of a(n-1) by 6.
1
0, 6, 12, 78, 1314, 79710, 13151376, 79711791312, 1315137713157978, 797117913137971113151314, 1315137713157979131513777971179710, 797117913137971113151315797117913131315137713151376
OFFSET
0,2
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
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
Sequence in context: A071930 A372180 A239854 * A305058 A220232 A370321
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