

A361102


1 together with numbers having at least two distinct prime factors.


16



1, 6, 10, 12, 14, 15, 18, 20, 21, 22, 24, 26, 28, 30, 33, 34, 35, 36, 38, 39, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 57, 58, 60, 62, 63, 65, 66, 68, 69, 70, 72, 74, 75, 76, 77, 78, 80, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 95, 96, 98, 99, 100, 102, 104, 105, 106, 108, 110, 111, 112
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

This is the union of 1 and A024619. It is the sequence C used in the definition of A360519. Since C is central to the analysis of A360519 it deserves its own entry.


LINKS



FORMULA

The sequence is the complement of the prime powers in the positive integers, a = A000027 \ A246655.
k is in this sequence <=> k divides lcm(1, 2, ..., k1). (End)


MAPLE

isa := n > is(irem(ilcm(seq(1..n1)), n) = 0):
aList := upto > select(isa, [seq(1..upto)]):


MATHEMATICA



PROG

(SageMath)
def A361102List(upto: int) > list[int]:
return sorted(Set(1..upto).difference(prime_powers(upto)))


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



