[go: up one dir, main page]

login
A356940
MM-numbers of multisets of initial intervals. Products of elements of A062447 (primes indexed by primorials A002110).
6
1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18, 24, 26, 27, 32, 36, 39, 48, 52, 54, 64, 72, 78, 81, 96, 104, 108, 113, 117, 128, 144, 156, 162, 169, 192, 208, 216, 226, 234, 243, 256, 288, 312, 324, 338, 339, 351, 384, 416, 432, 452, 468, 486, 507, 512, 576, 624, 648
OFFSET
1,2
COMMENTS
An initial interval is a set {1,2,...,n} for some n >= 0.
A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
We define the multiset of multisets with MM-number n to be formed by taking the multiset of prime indices of each part of the multiset of prime indices of n. The size of this multiset of multisets is A302242(n). For example, the prime indices of 78 are {1,2,6}, so the multiset of multisets with MM-number 78 is {{},{1},{1,2}}.
EXAMPLE
The initial terms and corresponding multisets of multisets:
1: {}
2: {{}}
3: {{1}}
4: {{},{}}
6: {{},{1}}
8: {{},{},{}}
9: {{1},{1}}
12: {{},{},{1}}
13: {{1,2}}
16: {{},{},{},{}}
18: {{},{1},{1}}
24: {{},{},{},{1}}
26: {{},{1,2}}
27: {{1},{1},{1}}
32: {{},{},{},{},{}}
36: {{},{},{1},{1}}
39: {{1},{1,2}}
48: {{},{},{},{},{1}}
52: {{},{},{1,2}}
54: {{},{1},{1},{1}}
64: {{},{},{},{},{},{}}
MATHEMATICA
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
chinQ[y_]:=y==Range[Length[y]];
Select[Range[100], And@@chinQ/@primeMS/@primeMS[#]&]
CROSSREFS
This is the initial version of A356939.
Initial intervals are counted by A010054, ranked by A002110.
Other types: A007294, A322585.
Other conditions: A302478, A302492, A356930, A356935, A356944, A356955.
A000041 counts integer partitions, strict A000009.
A000688 counts factorizations into prime powers.
A001055 counts factorizations.
A001221 counts prime divisors, sum A001414.
A001222 counts prime factors with multiplicity.
A056239 adds up prime indices, row sums of A112798.
Sequence in context: A278580 A028929 A308299 * A274452 A018731 A232966
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 12 2022
STATUS
approved