1,1

Elements of A054741 that are not divisible by any smaller element of that sequence.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Consists of 2p for p an odd prime, plus odd elements of A119433.

seqQ[n_] := 2*EulerPhi[n] < n; primQ[n_] := seqQ[n] && AllTrue[Most@Divisors[n], ! seqQ[#] &]; Select[Range[500], primQ] (* Amiram Eldar, Feb 29 2020 *)

Cf. A054741, A119433.

Sequence in context: A072978 A055163 A342192 * A207574 A278972 A241817

Adjacent sequences: A119428 A119429 A119430 * A119432 A119433 A119434

nonn

Franklin T. Adams-Watters, May 19 2006

approved