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 A059447 #12 Jan 03 2016 15:00:13
%S A059447 1,2,4,9,14,16,12,34,52,90,60,66,54,42,30,126,114,102,624,760,680,580,
%T A059447 540,748,740,520,672,408,666,360,264,546,510,330,318,2960,2574,1782,
%U A059447 1494,3672,3114,2790,1680,1386,1374,930,612,594,582,378,366,180,3570
%N A059447 Smallest number that takes n steps to get to 1 under the map f(n)=sigma(n)-n, the sum of the proper divisors.
%H A059447 T. D. Noe, <a href="/A059447/b059447.txt">Table of n, a(n) for n = 0..150</a>
%e A059447 a(4)=14 since 14->10->8->7->1 and no smaller number takes 4 steps.
%t A059447 f[n_] := DivisorSigma[1, n] - n; f[1] = 1; a[n_] := Catch[For[k = 1, True, k++, nl = NestList[f, k, n]; p = Position[nl, 1, 1, 1]; If[p != {}, If[p[[1, 1]] - 1 == n, Throw[k]]]]]; Table[a[n], {n, 0, 52}] (* _Jean-François Alcover_, Feb 01 2013 *)
%Y A059447 Cf. A003023 (length of aliquot sequence for n).
%K A059447 nice,nonn
%O A059447 0,2
%A A059447 _Erich Friedman_, Feb 02 2001
%E A059447 More terms from _T. D. Noe_, Nov 27 2006