|
Search: id:A083484
|
|
| |
|
| 1, 4, 12, 60, 420, 2520, 27720, 720720, 720720, 24504480, 465585120, 2793510720, 64250746560, 642507465600, 1927522396800, 111796299014400, 3465685269446400, 20794111616678400, 727793906583744000
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MAPLE
|
A083486 := proc(n, m) local fs, k, resu, extr ; if m < n then n+m-1; else fs := ifactors(mul( A083486(n, k), k=1..n-1))[2] ; resu := mul( op(1, op(k, fs))^(op(2, op(k, fs)) mod 2), k=1..nops(fs)) ; extr := 1 ; while extr^2*resu <= A083486(n, n-1) do extr := extr+1 ; od ; RETURN(resu*extr^2) ; fi ; end: A083484 := proc(n) sqrt(mul(A083486(n, m), m=1..n)) ; end: for n from 1 to 25 do printf("%a ", A083484(n)) ; od ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 05 2007
|
|
CROSSREFS
|
Cf. A083485, A083486.
Adjacent sequences: A083481 A083482 A083483 this_sequence A083485 A083486 A083487
Sequence in context: A084709 A057394 A054719 this_sequence A097250 A088860 A071769
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (amarnath_murthy(AT)yahoo.com), May 03 2003
|
|
EXTENSIONS
|
Corrected and extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 05 2007
|
|
|
Search completed in 0.002 seconds
|
