OFFSET
1,2
COMMENTS
The display has 1 2 3 5 7 11 15 ... terms per column. (cf. A000041)
The arrays begin
1.....2.....4......8......16.....32.....64......128
......3.....8.....20......48....112....256......576
...........13.....44.....132....368....976.....2496
..................75.....308...1076...3408....10096
.........................541...2612..10404....36848
...............................4683..25988...116180
.....................................47293...296564
.............................................545835
..................26......76....208....544
.........................176....604...1888
...............................1460...5740
.....................................14300
................................252....768
......................................2316
................................818...3172
......................................7880
with column sums
1....5....25....173....1297....12225....124997 => A035341
Column i corresponds to partitions of i. The rows correspond successively to the partitions {i}, {i-1,1},{i-2,1,1},{i-3,1,1,1}, ..., {i-7,1,1,1,1,1,1,1}, {i-2,2}, {i-3,2,1}, {i-4,2,1,1}, {i-5,2,1,1,1}, {i-3,3}, {i-3,3,1}, {i-4,2,2}, {i-5,2,2,1}. - Roger Lipsett, Feb 26 2016
EXAMPLE
36 = 2*2*3*3 and is in A025487. There are 26 ways to factor 36 so a(11) = 26.
MATHEMATICA
gozinta counts ordered factorizations of an integer, and if lst is a partition we have
gozinta[1] = 1;
gozinta[n_] := gozinta[n] = 1 + Sum[gozinta[n/i], {i, Rest@Most@Divisors@n}]
a[lst_] := gozinta[Times @@ (Array[Prime, Length@lst]^lst)] (* Roger Lipsett, Feb 26 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alford Arnold, Jul 10 2007
EXTENSIONS
Corrected entries in table in comments section - Roger Lipsett, Feb 26 2016
STATUS
approved