A061521 - OEIS

%I #9 May 21 2015 10:18:33

%S 1,7,13,79,1315,79711,13151377,79711791313,1315137713157979,

%T 797117913137971113151315,1315137713157979131513777971179711,

%U 797117913137971113151315797117913131315137713151377,131513771315797913151377797117971113151377131579797971179131379711791313

%N a(0) = 1; a(n) is obtained by incrementing each digit of a(n-1) by 6.

%C 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.

%t NestList[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]+6)]]&,1,15] (* _Harvey P. Dale_, May 21 2015 *)

%K base,nonn

%O 0,2

%A _Amarnath Murthy_, May 08 2001

%E More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001

%E a(5)-a(12) corrected by _Harvey P. Dale_, May 21 2015