OFFSET
1,3
MAPLE
A129644 := proc(nmax) local a, b, n, a_1; a := [1] ; b := [1] ; while nops(b) < 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) ; b := [op(b), op(numtheory[divisors](a_1))] ; od: RETURN(b) ; end: A129644(80) ; # 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
STATUS
approved