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 A136133 #3 Sep 24 2013 00:41:43 %S A136133 0,1,6,3,125,5,9,743,7105,59,925,500,943,2118,41214,8415,1138949, %T A136133 39515,7440381,11166954,18857978,254,584522,467664,312408461, %U A136133 34395742156,218280,375035124,4990290103,28025,2667653736605,913550,199539368422 %N A136133 Integer log of harmonic numbers. %C A136133 The integer log of a fraction p/q is A001414(p) - A001414(q). %C A136133 Similar to A136121 or A136122: apply integer log (sopfr, or A001414) to the fractions in the harmonic numbers sequence (A001008/A002805). %t A136133 sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; sopfr /@ HarmonicNumber[Range[40]] %Y A136133 Cf. A136121, A136122, A001008, A002805. %K A136133 easy,nonn %O A136133 0,3 %A A136133 _Carlos Alves_, Dec 16 2007