OFFSET
2,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 2..100
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
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