|
|
A136134
|
|
Primes in A136133 (integer log of harmonic numbers sequence).
|
|
0
|
|
|
3, 5, 743, 59, 312408461, 13669, 10920223, 85691034670497287, 795398356293665458781, 14301636907, 4280339305565030602944575375011
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
sopfr = Function[x, Plus @@ Map[Times @@ # &, FactorInteger[x]]]; Select[sopfr /@ HarmonicNumber[Range[100]], PrimeQ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|