OFFSET
1,1
COMMENTS
First differs from A332785 at n = 112: A332785(112) = 360 = 2^3 * 3^2 * 5 is not a term of this sequence.
Numbers k such that A375933(k) = 1.
Numbers of the form s1 * s2^e, where s1 and s2 are coprime squarefree numbers that are both larger than 1, and e >= 2.
The asymptotic density of this sequence is Sum_{e>=2} d(e) = 0.36113984820338109927..., where d(e) = Product_{p prime} (1 - 1/p^2 + 1/p^e - 1/p^(e+1)) - Product_{p prime} (1 - 1/p^(e+1)) is the asymptotic density of terms k with A051903(k) = e >= 2.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, Max[0, Max[Select[e, # < Max[e] &]]] == 1]; Select[Range[300], q]
PROG
(PARI) is(n) = if(n == 1, 0, my(e = factor(n)[, 2]); e = select(x -> x < vecmax(e), e); if(#e == 0, 0, vecmax(e) == 1));
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Sep 03 2024
STATUS
approved