|
| |
|
|
A083484
|
|
Square root of product of terms in row n of A083486.
|
|
3
|
|
|
|
1, 4, 12, 60, 420, 2520, 27720, 720720, 720720, 24504480, 465585120, 2793510720, 64250746560, 642507465600, 1927522396800, 111796299014400, 3465685269446400, 20794111616678400, 727793906583744000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Table of n, a(n) for n=1..19.
|
|
|
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, Apr 05 2007
|
|
|
CROSSREFS
|
Cf. A083485, A083486.
Sequence in context: A084709 A057394 A054719 * A097250 A088860 A188328
Adjacent sequences: A083481 A083482 A083483 * A083485 A083486 A083487
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (amarnath_murthy(AT)yahoo.com), May 03 2003
|
|
|
EXTENSIONS
|
Corrected and extended by R. J. Mathar, Apr 05 2007
|
|
|
STATUS
|
approved
|
| |
|
|
