A317616 Numbers whose prime multiplicities are not pairwise indivisible.

12, 18, 20, 24, 28, 40, 44, 45, 48, 50, 52, 54, 56, 60, 63, 68, 75, 76, 80, 84, 88, 90, 92, 96, 98, 99, 104, 112, 116, 117, 120, 124, 126, 132, 135, 136, 140, 144, 147, 148, 150, 152, 153, 156, 160, 162, 164, 168, 171, 172, 175, 176, 180, 184, 188, 189, 192

Offset

1,1

Links

Table of n, a(n) for n=1..57.

Example

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

Mathematica

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

Crossrefs

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

Sequence in context: A360246 A242416 A360248 * A332785 A367589 A177425

Adjacent sequences: A317613 A317614 A317615 * A317617 A317618 A317619

Keyword

nonn

Author

Gus Wiseman, Aug 01 2018

Status

approved