A061750 a(0) = 0; a(n) is obtained by incrementing each digit of a(n-1) by 9.
0, 9, 18, 1017, 1091016, 109181091015, 109181017109181091014, 1091810171091016109181017109181091013, 10918101710910161091810910151091810171091016109181017109181091012
Offset: 0
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..12
Programs
-
Mathematica
NestList[FromDigits@ Flatten@ Map[IntegerDigits, IntegerDigits@ # + 9] &, 0, 8] (* Michael De Vlieger, Jun 24 2016, after Harvey P. Dale at A061512 *)
-
PARI
A061750(n=2, a=9, m=9)={for(n=2,n, a=eval(concat(apply(t->Str(t+m), digits(a)))));if(n,a)} \\ If only the 2nd argument is given, then the operation is applied once to that argument. - M. F. Hasler, Jun 24 2016
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001
Comments