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,2

Links

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

Example

72 = 2^3 * 3^2 is 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, A317102, A317616.

Sequence in context: A283550 A271113 A325369 * A304449 A085924 A242414

Adjacent sequences: A317098 A317099 A317100 * A317102 A317103 A317104

Keyword

nonn

Author

Gus Wiseman, Aug 01 2018

Status

approved