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