OFFSET
0,2
COMMENTS
The second bisection is obtained by doubling the terms, 2*a(n).
FORMULA
a(n)=A091137(2n).
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
Paul Curtz, Aug 05 2008
EXTENSIONS
Edited and extended by R. J. Mathar, Aug 09 2008
STATUS
approved