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 A025492 #19 Nov 21 2013 13:11:18
%S A025492 1,2,3,4,5,3,7,4,3,5,11,4,13,7,5,3,17,3,19,5,7,11,23,4,5,13,3,7,29,5,
%T A025492 31,4,11,17,7,3,37,19,13,5,41,7,43,11,3,23,47,3,7,5,17,13,53,3,11,7,
%U A025492 19,29,59,5,61,31,7,4,13,11,67,17,23,7,71,3,73,37,5,19,11,13,79,3,3,41,83,7,17
%N A025492 Fixed point reached by iterating the Kempner function A002034 starting at n.
%H A025492 Reinhard Zumkeller, <a href="/A025492/b025492.txt">Table of n, a(n) for n = 1..10000</a>
%t A025492 k[n_] := (m=1; While[ !IntegerQ[m!/n], m++]; m); a[n_] := FixedPoint[k, n]; Table[ a[n], {n, 1, 85}] (* _Jean-François Alcover_, Mar 15 2012 *)
%o A025492 (Haskell)
%o A025492 a025492 n = fst $ until (uncurry (==)) (\(x,x') -> (a002034 x, x)) (n,0)
%o A025492 -- _Reinhard Zumkeller_, Mar 09 2012
%Y A025492 Cf. A002034, A025493.
%K A025492 nonn,nice
%O A025492 1,2
%A A025492 _David W. Wilson_