OFFSET
1,1
COMMENTS
Elements of A054741 that are not divisible by any smaller element of that sequence.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Consists of 2p for p an odd prime, plus odd elements of A119433.
MATHEMATICA
seqQ[n_] := 2*EulerPhi[n] < n; primQ[n_] := seqQ[n] && AllTrue[Most@Divisors[n], ! seqQ[#] &]; Select[Range[500], primQ] (* Amiram Eldar, Feb 29 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Franklin T. Adams-Watters, May 19 2006
STATUS
approved