A136133 Integer log of harmonic numbers.

0, 1, 6, 3, 125, 5, 9, 743, 7105, 59, 925, 500, 943, 2118, 41214, 8415, 1138949, 39515, 7440381, 11166954, 18857978, 254, 584522, 467664, 312408461, 34395742156, 218280, 375035124, 4990290103, 28025, 2667653736605, 913550, 199539368422

Offset

0,3

Comments

The integer log of a fraction p/q is A001414(p) - A001414(q).

Similar to A136121 or A136122: apply integer log (sopfr, or A001414) to the fractions in the harmonic numbers sequence (A001008/A002805).

Links

Table of n, a(n) for n=0..32.

Mathematica

sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; sopfr /@ HarmonicNumber[Range[40]]

Crossrefs

Cf. A136121, A136122, A001008, A002805.

Sequence in context: A100979 A279107 A266661 * A200020 A011487 A242834

Adjacent sequences: A136130 A136131 A136132 * A136134 A136135 A136136

Keyword

easy,nonn

Author

Carlos Alves, Dec 16 2007

Status

approved