%I #3 Mar 30 2012 18:51:58

%S 1,12,720,60480,3628800,479001600,2615348736000,31384184832000,

%T 32011868528640000,51090942171709440000,33720021833328230400000,

%U 9306726025998591590400000,50814724101952310083584000000

%N First bisection of A091137.

%C The second bisection is obtained by doubling the terms, 2*a(n).

%F a(n)=A091137(2n).

%p 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

%K nonn

%O 0,2

%A _Paul Curtz_, Aug 05 2008

%E Edited and extended by _R. J. Mathar_, Aug 09 2008