A317101 - OEIS

%I #8 Aug 01 2018 20:37:42

%S 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,

%T 32,33,34,35,36,37,38,39,41,42,43,46,47,49,51,53,55,57,58,59,61,62,64,

%U 65,66,67,69,70,71,72,73,74,77,78,79,81,82,83,85,86,87

%N Numbers whose prime multiplicities are pairwise indivisible.

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

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

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

%K nonn

%O 1,2

%A _Gus Wiseman_, Aug 01 2018