cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

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

This page as a plain text file.
%I A061520 #11 Jan 10 2021 14:17:41
%S A061520 0,6,12,78,1314,79710,13151376,79711791312,1315137713157978,
%T A061520 797117913137971113151314,1315137713157979131513777971179710,
%U A061520 797117913137971113151315797117913131315137713151376
%N A061520 a(0) = 0; a(n) is obtained by incrementing each digit of a(n-1) by 6.
%C A061520 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.
%H A061520 Robert Israel, <a href="/A061520/b061520.txt">Table of n, a(n) for n = 0..17</a>
%p A061520 g:= proc(n) op(convert(n+6,base,10)) end proc:
%p A061520 L[0]:= [0]:
%p A061520 for n from 1 to 12 do L[n]:= map(g,L[n-1]) od:
%p A061520 map(t -> add(t[i]*10^(i-1),i=1..nops(t)), [seq(L[i],i=0..12)]): # _Robert Israel_, Jan 26 2020
%t A061520 Nest[Append[#, FromDigits@ Flatten@ IntegerDigits[IntegerDigits@ #[[-1]] + 6]] &, {0}, 11] (* _Michael De Vlieger_, Jan 26 2020 *)
%t A061520 NestList[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]+6)]]&,0,15] (* _Harvey P. Dale_, Jan 10 2021 *)
%K A061520 base,nonn
%O A061520 0,2
%A A061520 _Amarnath Murthy_, May 08 2001
%E A061520 More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001
%E A061520 Corrected by _Robert Israel_, Jan 26 2020