OFFSET
1,2
EXAMPLE
MAPLE
A129643 := proc(nmax) local a, b, n, a_1; a := [1] ; b := [1] ; while nops(a) < nmax do n := nops(a)+1 ; a_1 := op(-1, a) ; a := [op(a), a_1*(op(n-1, b)+1)] ; a_1 := op(-1, a) ; if nops(b) < nmax then b := [op(b), op(numtheory[divisors](a_1))] ; fi ; od: RETURN(a) ; end: A129643(40) ; # R. J. Mathar, Oct 16 2007
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Leroy Quet, Apr 25 2007
EXTENSIONS
More terms from R. J. Mathar, Oct 16 2007
Corrected by N. J. A. Sloane, Nov 04 2007
STATUS
approved