|
|
A141421
|
|
First bisection of A091137.
|
|
2
|
|
|
1, 12, 720, 60480, 3628800, 479001600, 2615348736000, 31384184832000, 32011868528640000, 51090942171709440000, 33720021833328230400000, 9306726025998591590400000, 50814724101952310083584000000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
The second bisection is obtained by doubling the terms, 2*a(n).
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
A091137 := proc(n) local a, p ; a := 1; p := 2: while floor(n/(p-1)) > 0 do a := a*p^(floor(n/(p-1))) ; p := nextprime(p) ; od: RETURN(a) ; end: A141421 := proc(n) A091137(2*n) ; end: for n from 0 to 20 do printf("%d, ", A141421(n)) ; od: # R. J. Mathar, Aug 09 2008
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|