editing
approved
editing
approved
1, 1, 1, 1, 1, 1, ...
1, 1, 1, 1, 1, 1, ...
1, 2, 5, 14, 41, 122, ...
1, 3, 19, 171, 1675, 16683, ...
1, 5, 74, 1975, 64182, 2203215, ...
1, 7, 248, 20096, 2213016, 268446852, ...
approved
editing
proposed
approved
editing
proposed
b[n_, k_, i_] := b[n, k, i] = If[n>k, 0, 1] + If[PrimeQ[n] || i<2, 0, Sum[ If[d > k, 0, b[n/d, d, i-1]], {d, Divisors[n][[2 ;; -2]]}]]; A[0, _] = 1; A[1, _] = 1; A[_, 0] = 1; A[n_, k_] := With[{t = Times @@ Prime[ Range[k] ]}, b[t^n, t^n, n]]; Table[diag = Table[A[n-k, k], {k, n, 0, -1}]; Print[ diag]; diag, {n, 0, 10}] // Flatten (* Jean-François Alcover, Jan 08 2016, after Alois P. Heinz *)
approved
editing
editing
approved
A(2,2) = 5: (2*3)^2 = 36 has 9 5 factorizations into at most 2 factors: 36, 2*18, 3*12, 4*9, 6*6.
editing
approved
A(2,2) = 5: (2*3)^2 = 36 has 9 factorizations into at most 2 factors: 36, 2*18, 3*12, 4*9, 6*6.