login
A282934
Concatenation of the numbers of elements of P{d_1}, P{d_2}, P{d_3}, ..., P{d_n}; where P{d_n} denote the power set of the set of divisors of n ordered by the size of the subsets, and in each subset, following the increasing order.
2
1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, 3, 1, 1, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 1, 1, 2, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 1, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 4, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2
OFFSET
1,4
EXAMPLE
Rows with power sets of set of divisors of n (without nonempty sets):
{1};
{1}, {2}, {1, 2};
{1}, {3}, {1, 3};
{1}, {2}, {4}, {1, 2}, {1, 4}, {2, 4}, {1, 2, 4};
...
Rows with the numbers of elements of these subsets:
1;
1, 1, 2;
1, 1, 2;
1, 1, 1, 2, 2, 2, 3;
...
Concatenation: 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 2, 2, 2, 3, ...
MATHEMATICA
Table[Length /@ Rest[Subsets[Divisors[n]]], {n, 1, 12}] // Flatten (* Jean-François Alcover, Nov 13 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Feb 25 2017
STATUS
approved