A356939 MM-numbers of multisets of intervals. Products of primes indexed by members of A073485.
1, 2, 3, 4, 5, 6, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 20, 22, 24, 25, 26, 27, 30, 31, 32, 33, 34, 36, 39, 40, 41, 44, 45, 47, 48, 50, 51, 52, 54, 55, 59, 60, 62, 64, 65, 66, 67, 68, 72, 75, 78, 80, 81, 82, 83, 85, 88, 90, 93, 94, 96, 99, 100, 102, 104, 108
Offset: 1
Keywords
Examples
The initial terms and corresponding multisets of multisets: 1: {} 2: {{}} 3: {{1}} 4: {{},{}} 5: {{2}} 6: {{},{1}} 8: {{},{},{}} 9: {{1},{1}} 10: {{},{2}} 11: {{3}} 12: {{},{},{1}} 13: {{1,2}} 15: {{1},{2}} 16: {{},{},{},{}}
Crossrefs
Programs
-
Mathematica
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; chQ[y_]:=Or[Length[y]<=1,Union[Differences[y]]=={1}]; Select[Range[100],And@@chQ/@primeMS/@primeMS[#]&]
Comments