A317101 Numbers whose prime multiplicities are pairwise indivisible.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 41, 42, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 62, 64, 65, 66, 67, 69, 70, 71, 72, 73, 74, 77, 78, 79, 81, 82, 83, 85, 86, 87

Offset: 1

Author

Gus Wiseman, Aug 01 2018

Keywords

• nonn

Examples

			72 = 2^3 * 3^2 is in the sequence because 3 and 2 are pairwise indivisible.
		

Crossrefs

Cf. A118914, A124010, A285572, A285573, A303362, A304713, A316475, A317102, A317616.

Programs

Mathematica

Select[Range[100],Select[Tuples[Last/@FactorInteger[#],2],And[UnsameQ@@#,Divisible@@#]&]=={}&]