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 A018194 #23 Aug 28 2024 09:37:17 %S A018194 1,1,1,1,1,2,1,2,3,2,1,2,1,2,2,3,1,3,1,2,2,2,1,2,3,2,4,2,1,2,1,3,2,2, %T A018194 2,3,1,2,2,2,1,2,1,2,3,2,1,3,3,3,2,2,1,4,2,2,2,2,1,2,1,2,2,3,2,2,1,2, %U A018194 2,2,1,3,1,2,3,2,2,2,1,3,4,2,1,2,2,2,2,2,1,3,2,2,2,2,2,3,1,3,2,3,1,2,1,2,2,2,1,4 %N A018194 Number of steps for S(S(..S(n)..)) to converge, where S is the Kempner function A002034. %D A018194 Henry Ibstedt, "Smarandache Iterations", Smarandache Notions Journal, (submitted), 1996. %H A018194 Reinhard Zumkeller, <a href="/A018194/b018194.txt">Table of n, a(n) for n = 1..10000</a> %F A018194 a(A046022(n)) = 1. [_Reinhard Zumkeller_, Mar 09 2012] %o A018194 (Haskell) %o A018194 a018194 n = 1 + length (takeWhile (/= 0) $ zipWith (-) ks $ tail ks) %o A018194 where ks = iterate a002034 n %o A018194 -- _Reinhard Zumkeller_, Mar 09 2012 %Y A018194 Cf. A002034, A046022. %K A018194 nonn %O A018194 1,6 %A A018194 Henry Ibstedt (Glimminge 2036, 28060 Broby, Sweden) %E A018194 Corrected and extended by _David W. Wilson_, May 15 1997