A308558 Triangle read by rows where T(n,k) is the number of integer partitions of n > 0 into powers of k > 0.

1, 1, 2, 1, 2, 2, 1, 4, 2, 2, 1, 4, 2, 2, 2, 1, 6, 3, 2, 2, 2, 1, 6, 3, 2, 2, 2, 2, 1, 10, 3, 3, 2, 2, 2, 2, 1, 10, 5, 3, 2, 2, 2, 2, 2, 1, 14, 5, 3, 3, 2, 2, 2, 2, 2, 1, 14, 5, 3, 3, 2, 2, 2, 2, 2, 2, 1, 20, 7, 4, 3, 3, 2, 2, 2, 2, 2, 2, 1, 20, 7, 4, 3, 3, 2

Offset: 1

Author

Gus Wiseman, Jun 07 2019

Keywords

• nonn
• tabl

Examples

			Triangle begins:
  1
  1  2
  1  2  2
  1  4  2  2
  1  4  2  2  2
  1  6  3  2  2  2
  1  6  3  2  2  2  2
  1 10  3  3  2  2  2  2
  1 10  5  3  2  2  2  2  2
  1 14  5  3  3  2  2  2  2  2
  1 14  5  3  3  2  2  2  2  2  2
  1 20  7  4  3  3  2  2  2  2  2  2
  1 20  7  4  3  3  2  2  2  2  2  2  2
Row n = 6 counts the following partitions:
  (111111)  (42)      (33)      (411)     (51)      (6)
            (222)     (3111)    (111111)  (111111)  (111111)
            (411)     (111111)
            (2211)
            (21111)
            (111111)
		

Crossrefs

Same as A102430 except for the k = 1 column.

Row sums are A102431(n) + 1.

Column k = 2 is A018819.

Column k = 3 is A062051.

Cf. A000961, A001597, A007916, A008284, A023894, A052410, A101417, A112344, A323053, A323054.

Programs

Mathematica

Table[If[k==1,1,Length[Select[IntegerPartitions[n],And@@(IntegerQ[Log[k,#]]&/@#)&]]],{n,10},{k,n}]