login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Integer log of harmonic numbers.
1

%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