A304713 Squarefree numbers whose prime indices are pairwise indivisible. Heinz numbers of strict integer partitions with pairwise indivisible parts.
1, 2, 3, 5, 7, 11, 13, 15, 17, 19, 23, 29, 31, 33, 35, 37, 41, 43, 47, 51, 53, 55, 59, 61, 67, 69, 71, 73, 77, 79, 83, 85, 89, 91, 93, 95, 97, 101, 103, 107, 109, 113, 119, 123, 127, 131, 137, 139, 141, 143, 145, 149, 151, 155, 157, 161, 163, 165, 167, 173
Offset: 1
Keywords
Examples
Sequence of entries together with their corresponding multiset multisystems (see A302242) begins: 1: {} 2: {{}} 3: {{1}} 5: {{2}} 7: {{1,1}} 11: {{3}} 13: {{1,2}} 15: {{1},{2}} 17: {{4}} 19: {{1,1,1}} 23: {{2,2}} 29: {{1,3}} 31: {{5}} 33: {{1},{3}} 35: {{2},{1,1}}
Crossrefs
Programs
-
Mathematica
Select[Range[300],SquareFreeQ[#]&&Select[Tuples[PrimePi/@First/@FactorInteger[#],2],UnsameQ@@#&&Divisible@@#&]==={}&]
Comments