A061516 a(0) = 1; a(n) is obtained by incrementing each digit of a(n-1) by 4.
1, 5, 9, 13, 57, 911, 1355, 5799, 9111313, 13555757, 5799911911, 911131313551355, 1355575757995799, 579991191191113139111313, 9111313135513551355575713555757, 135557575799579957999119115799911911
Offset: 0
Programs
-
Mathematica
a[0]=1;a[n_]:=a[n]=FromDigits[Flatten[IntegerDigits/@(IntegerDigits[a[n-1]]+4)]]; Table[a[n],{n,0,15}] (* Zak Seidov, Mar 09 2006 *)
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001
Comments