OFFSET
1,2
COMMENTS
First differs from A330006 at n = 52: a(52) = 4410 is not a term of A330006. The first term of A330006 that is not in this sequence is A330006(127) = 166530.
Numbers are less likely to be unitary divisors than any smaller number, i.e., numbers k such that the asymptotic density of numbers that are unitarily divided by k (A373318(k)/A373319(k)) is lower than the corresponding density of all m < k.
The numbers k such that phi(k)/k < phi(m)/m for all m < k are the primorial numbers (A002110).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..670
MATHEMATICA
seq[kmax_] := Module[{rm = 2, r, s = {}}, Do[If[(r = EulerPhi[k]/k^2) < rm, rm = r; AppendTo[s, k]], {k, 1, kmax}]; s]; seq[5000]
PROG
(PARI) lista(kmax) = {my(rm = 2, r); for(k = 1, kmax, r = eulerphi(k)/k^2; if(r < rm, rm = r; print1(k, ", "))); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jun 01 2024
STATUS
approved