A387180 Numbers of which it is not possible to choose a different constant integer partition of each prime index.
4, 8, 12, 16, 20, 24, 27, 28, 32, 36, 40, 44, 48, 52, 54, 56, 60, 64, 68, 72, 76, 80, 81, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 124, 125, 128, 132, 135, 136, 140, 144, 148, 152, 156, 160, 162, 164, 168, 172, 176, 180, 184, 188, 189, 192, 196, 200, 204
Offset: 1
Examples
The prime indices of 60 are {1,1,2,3}, and we have the following 4 choices of constant partitions: ((1),(1),(2),(3)) ((1),(1),(2),(1,1,1)) ((1),(1),(1,1),(3)) ((1),(1),(1,1),(1,1,1)) Since none of these is strict, 60 is in the sequence. The prime indices of 90 are {1,2,2,3}, and we have the following 4 strict choices: ((1),(2),(1,1),(3)) ((1),(2),(1,1),(1,1,1)) ((1),(1,1),(2),(3)) ((1),(1,1),(2),(1,1,1)) So 90 is not in the sequence.
Crossrefs
Programs
-
Mathematica
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Select[Range[100],Select[Tuples[Select[IntegerPartitions[#],SameQ@@#&]&/@prix[#]],UnsameQ@@#&]=={}&]
Comments