editing
approved
editing
approved
Harvey P. Dale, <a href="/A111928/b111928.txt">Table of n, a(n) for n = 1..808</a>
approved
editing
editing
approved
Numerator[FoldList[Times, Table[DivisorSigma[1, n]/n, {n, 30}]]] (* Harvey P. Dale, Jan 17 2016 *)
approved
editing
proposed
approved
editing
proposed
_R. K. Guy _ observes (Nov 23, 2005) that it appears that f(n) is an integer iff n = 1, 3, 8, 9, when f(n) = 1, 2, 18, 26 respectively.
f[n_] := Numerator@ Product[ DivisorSigma[1, i]/i, {i, n}]; Array[f, 30] (from _* _Robert G. Wilson v_, May 01 2006 *)
approved
editing
f[n_] := Numerator@ Product[ DivisorSigma[1, i]/i, {i, n}]; Array[f, 30] (from _Robert G. Wilson v (rgwv(at)rgwv.com), _, May 01 2006)
_N. J. A. Sloane (njas(AT)research.att.com), _, Nov 27 2005
nonn,frac,new
N. J. A. Sloane (njas, (AT)research.att.com), Nov 27 2005