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

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

Offset

0,1

Links

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

Mathematica

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

Crossrefs

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

Sequence in context: A320939 A002427 A350036 * A119497 A298094 A012783

Adjacent sequences: A136131 A136132 A136133 * A136135 A136136 A136137

Keyword

nonn

Author

Carlos Alves, Dec 16 2007

Status

approved