login
A066987
a(n) = Product_{i=2..n} sigma(i)/bigomega(i).
1
3, 12, 42, 252, 1512, 12096, 60480, 393120, 3538080, 42456960, 396264960, 5547709440, 66572513280, 798870159360, 6191243735040, 111442387230720, 1448751033999360, 28975020679987200, 405650289519820800
OFFSET
2,1
LINKS
MATHEMATICA
Rest[FoldList[Times, 1, Table[DivisorSigma[1, n]/PrimeOmega[n], {n, 2, 20}]]] (* Harvey P. Dale, Oct 15 2014 *)
PROG
(PARI) { a=1; for (n=2, 100, a*=sigma(n)/bigomega(n); write("b066987.txt", n, " ", a) ) } \\ Harry J. Smith, Apr 15 2010
CROSSREFS
Sequence in context: A065179 A048121 A191112 * A366617 A375203 A290918
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jan 27 2002
EXTENSIONS
Definition corrected and Offset changed from 1 to 2 by Harry J. Smith, Apr 15 2010
STATUS
approved