OFFSET
1,2
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3) = gcd(2*3*5,4*6*8)/2 = gcd(30,192)/2 = 6/2 = 3;
a(4) = gcd(2*3*5*7,4*6*8*9)/2 = gcd(210,1728)/2 = 6/2 = 3;
a(5) = gcd(2*3*5*7*11,4*6*8*9*10)/2 = gcd(2310,17280)/2 = 30/2 = 15.
MATHEMATICA
nn=40; With[{prs=Prime[Range[nn]], comps=Take[Complement[Range[Prime[nn]], Prime[ Range[nn]]], nn]}, Rest[Table[GCD[Times@@Take[prs, n], Times@@Take[ comps, n]]/2, {n, nn}]]] (* Harvey P. Dale, Oct 16 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 03 2011
STATUS
approved