A136134 Primes in A136133 (integer log of harmonic numbers sequence).

3, 5, 743, 59, 312408461, 13669, 10920223, 85691034670497287, 795398356293665458781, 14301636907, 4280339305565030602944575375011

Offset: 0

Author

Carlos Alves, Dec 16 2007

Keywords

• nonn

Crossrefs

Cf. A136133, A136121, A136122, A001008, A002805.

Programs

Mathematica

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