|
| |
|
|
A329630
|
|
Products of distinct primes of nonprime squarefree index.
|
|
3
|
|
|
|
1, 2, 13, 26, 29, 43, 47, 58, 73, 79, 86, 94, 101, 113, 137, 139, 146, 149, 158, 163, 167, 181, 199, 202, 226, 233, 257, 269, 271, 274, 278, 293, 298, 313, 317, 326, 334, 347, 349, 362, 373, 377, 389, 397, 398, 421, 439, 443, 449, 466, 467, 487, 491, 499, 514
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
COMMENTS
|
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. The multiset of multisets with MM-number n is formed by taking the multiset of prime indices of each part of the multiset of prime indices of 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}}. This sequence lists all MM-numbers of sets of non-singleton sets.
|
|
|
LINKS
|
|
|
|
EXAMPLE
|
The sequence of terms together with their corresponding sets of sets begins:
1: {}
2: {{}}
13: {{1,2}}
26: {{},{1,2}}
29: {{1,3}}
43: {{1,4}}
47: {{2,3}}
58: {{},{1,3}}
73: {{2,4}}
79: {{1,5}}
86: {{},{1,4}}
94: {{},{2,3}}
101: {{1,6}}
113: {{1,2,3}}
137: {{2,5}}
139: {{1,7}}
146: {{},{2,4}}
149: {{3,4}}
158: {{},{1,5}}
163: {{1,8}}
|
|
|
MATHEMATICA
|
primeMS[n_]:=If[n==1, {}, Flatten[Cases[FactorInteger[n], {p_, k_}:>Table[PrimePi[p], {k}]]]];
Select[Range[100], SquareFreeQ[#]&&And@@SquareFreeQ/@primeMS[#]&&!MemberQ[primeMS[#], _?PrimeQ]&]
|
|
|
CROSSREFS
|
MM-numbers of sets of nonempty sets are A329629.
Products of primes of nonprime squarefree index are A320630.
Products of prime numbers of squarefree index are A302478.
Products of primes of nonprime index are A320628.
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
|
|
|
STATUS
|
approved
|
| |
|
|
