The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A111934 Denominator of f(n) := Product_{i=1..n} sigma(i)/i. 1
 1, 2, 1, 2, 5, 5, 5, 1, 1, 5, 55, 55, 55, 55, 275, 275, 4675, 4675, 17765, 88825, 88825, 977075, 22472725, 4494545, 112363625, 112363625, 22472725, 22472725, 130341805, 651709025, 651709025, 651709025, 7168799275, 121869587675, 609347938375, 609347938375 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 COMMENTS 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. LINKS Table of n, a(n) for n=1..36. EXAMPLE 1, 3/2, 2, 7/2, 21/5, 42/5, 48/5, 18, 26, 234/5, 2808/55, 6552/55, 7056/55, 12096/55, 96768/275, 187488/275, 3374784/4675, 7312032/4675, 29248128/17765, 307105344/88825, ... MAPLE with(numtheory); f:=n->mul(sigma(i)/i, i=1..n); MATHEMATICA f[n_] := Denominator@ Product[ DivisorSigma[1, i]/i, {i, n}]; Array[f, 36] (* Robert G. Wilson v, May 01 2006 *) Denominator[Rest[FoldList[Times, 1, Table[DivisorSigma[1, i]/i, {i, 40}]]]] (* Harvey P. Dale, Nov 12 2014 *) CROSSREFS Cf. A111928. Sequence in context: A241138 A241349 A330405 * A098509 A019910 A084309 Adjacent sequences: A111931 A111932 A111933 * A111935 A111936 A111937 KEYWORD nonn,frac AUTHOR N. J. A. Sloane, Nov 27 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 5 06:19 EST 2024. Contains 370537 sequences. (Running on oeis4.)