A061521 a(0) = 1; a(n) is obtained by incrementing each digit of a(n-1) by 6.
1, 7, 13, 79, 1315, 79711, 13151377, 79711791313, 1315137713157979, 797117913137971113151315, 1315137713157979131513777971179711, 797117913137971113151315797117913131315137713151377, 131513771315797913151377797117971113151377131579797971179131379711791313
Offset: 0
Programs
-
Mathematica
NestList[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]+6)]]&,1,15] (* Harvey P. Dale, May 21 2015 *)
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001
a(5)-a(12) corrected by Harvey P. Dale, May 21 2015
Comments