A061512 a(0) = 1; a(n) is obtained by incrementing each digit of a(n-1) by 2.
1, 3, 5, 7, 9, 11, 33, 55, 77, 99, 1111, 3333, 5555, 7777, 9999, 11111111, 33333333, 55555555, 77777777, 99999999, 1111111111111111, 3333333333333333, 5555555555555555, 7777777777777777, 9999999999999999, 11111111111111111111111111111111, 33333333333333333333333333333333
Offset: 0
Examples
Following 33: 3+2 = 5 and 3+2 = 5, hence the next term is 55.
Programs
-
Mathematica
NestList[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]+2)]]&,1,30] (* Harvey P. Dale, Apr 13 2012 *)
-
PARI
A061512(n)=10^2^(n\5)\9*(n%5*2+1) \\ M. F. Hasler, Jun 24 2016
-
PARI
nxt(n) = my(d=digits(n)); if(d[1]<9,n+2*(10^#d - 1)/9,(10^(2*#d) - 1)/9) inv(n) = {my(d=digits(n));5*logint(#d,2) + (d[1]+1)\2} \\ David A. Corneth, Jun 24 2016
Formula
a(n) = (10^2^floor(n/5)-1)/9*(n%5*2+1), where n%5 means the remainder (in {0..4}) of n divided by 5. - M. F. Hasler, Jun 24 2016
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001
Comments