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.
%I A061746 #13 Jun 07 2025 18:57:38 %S A061746 1,8,15,812,1589,8121516,1589812813,8121516158915810, %T A061746 158981281381215168121587,8121516158915810158981281315898121514, %U A061746 158981281381215168121587812151615891581081215161589812811 %N A061746 a(0) = 1; a(n) is obtained by incrementing each digit of a(n-1) by 7. %C A061746 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. %C A061746 Considering each term as a sequence of digits, the subsequences a(2n) and a(2n-1) converge to two different fixed points of the operation repeated twice, 158981281381... and 81215161589158.... - _M. F. Hasler_, Jun 24 2016 %H A061746 Harvey P. Dale, <a href="/A061746/b061746.txt">Table of n, a(n) for n = 0..16</a> %t A061746 NestList[FromDigits[Flatten[IntegerDigits/@(IntegerDigits[#]+7)]]&,1,10] (* _Harvey P. Dale_, Jun 07 2025 *) %o A061746 (PARI) A061746(n=1, a=1, m=7)={for(n=1, n, a=eval(concat(apply(t->Str(t+m), digits(a))))); a} \\ If only the 2nd argument is given, then the operation is applied once to that argument. - _M. F. Hasler_, Jun 24 2016 %Y A061746 Cf. A061747 - A061750, A061511 - A061522; A061581 - A061587. %K A061746 base,nonn %O A061746 0,2 %A A061746 _Amarnath Murthy_, May 08 2001 %E A061746 More terms from Larry Reeves (larryr(AT)acm.org), May 11 2001