OFFSET
2,1
LINKS
M. F. Hasler, Table of n, a(n) for n = 2..168
FORMULA
MATHEMATICA
Table[Max[FactorInteger[Sum[1/i, {i, 1, n}]/Product[1/i, {i, 1, n}]]], {n, 2, 40}]
FactorInteger[#][[-1, 1]]&/@StirlingS1[Range[3, 40], 2] (* Harvey P. Dale, May 10 2018 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jul 11 2006
EXTENSIONS
More terms from M. F. Hasler, Jul 04 2019
STATUS
approved