A136134 Primes in A136133 (integer log of harmonic numbers sequence).
3, 5, 743, 59, 312408461, 13669, 10920223, 85691034670497287, 795398356293665458781, 14301636907, 4280339305565030602944575375011
Offset: 0
Keywords
Programs
-
Mathematica
sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Select[sopfr /@ HarmonicNumber[Range[100]], PrimeQ]