%I #14 Dec 25 2015 21:41:54
%S 3,12,42,252,1512,12096,60480,393120,3538080,42456960,396264960,
%T 5547709440,66572513280,798870159360,6191243735040,111442387230720,
%U 1448751033999360,28975020679987200,405650289519820800
%N a(n) = Product_{i=2..n} sigma(i)/bigomega(i).
%H Harry J. Smith, <a href="/A066987/b066987.txt">Table of n, a(n) for n = 2..100</a>
%t Rest[FoldList[Times,1,Table[DivisorSigma[1,n]/PrimeOmega[n],{n,2,20}]]] (* _Harvey P. Dale_, Oct 15 2014 *)
%o (PARI) { a=1; for (n=2, 100, a*=sigma(n)/bigomega(n); write("b066987.txt", n, " ", a) ) } \\ _Harry J. Smith_, Apr 15 2010
%K nonn
%O 2,1
%A _Benoit Cloitre_, Jan 27 2002
%E Definition corrected and Offset changed from 1 to 2 by _Harry J. Smith_, Apr 15 2010