OFFSET
0,3
EXAMPLE
Lcm(a(0),a(1),a(2),a(3),a(4),a(5),a(6)) = lcm(1,1,2,3,8,5,16) = 240. 6!! = 6*4*2 = 48 divides 240.
MAPLE
A130479 := proc(nmax) local a, n, df, k, f, p, l; a := [1, 1] ; while nops(a)< nmax do n := nops(a) ; df := ifactors(doublefactorial(n))[2] ; l := ilcm(op(a)) ; k := 1 ; for f in df do p := op(1, f)^op(2, f) ; if l mod p <> 0 then k := k*p ; fi; od: a := [op(a), k] ; od; RETURN(a) ; end: A130479(60) ; # R. J. Mathar, Oct 16 2007
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, May 29 2007
EXTENSIONS
More terms from R. J. Mathar, Oct 16 2007
STATUS
approved