OFFSET
1,4
EXAMPLE
Array begins:
1
1
1,2
1,2,4
1,7
1,3,9
12 terms make up these 6 rows. So row 7 is the divisors of 12, (1,2,3,4,6,12).
MAPLE
A119765 := proc(nmax) local a, dvs; a := [1] ; while nops(a) < nmax do dvs := numtheory[divisors](nops(a)) ; a := [op(a), op(dvs) ] ; od ; end: a := A119765(300) ; for i from 1 to nops(a) do printf("%d, ", a[i]) ; od ; # R. J. Mathar, Jun 23 2006
PROG
(PLT Scheme) ;; positive-divisors gives the list of divisors of n in decreasing order
(define (A119765 n seq)
(cond
[(= n 0) seq]
[else (A119765 (sub1 n) (append seq (reverse (positive-divisors (length seq)))))]))
(A119765 30 (list 1)) ;; Joshua Zucker, Jun 21 2006
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Leroy Quet, Jun 18 2006
EXTENSIONS
More terms from Joshua Zucker and R. J. Mathar, Jun 21 2006
STATUS
approved