A119431 Primitive elements of A054741.

6, 10, 14, 22, 26, 34, 38, 46, 58, 62, 74, 82, 86, 94, 105, 106, 118, 122, 134, 142, 146, 158, 165, 166, 178, 194, 195, 202, 206, 214, 218, 226, 254, 262, 274, 278, 298, 302, 314, 326, 334, 346, 358, 362, 382, 386, 394, 398, 422, 446, 454, 458, 466, 478, 482

Offset: 1

Author

Franklin T. Adams-Watters, May 19 2006

Keywords

• nonn

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

Crossrefs

Cf. A054741, A119433.

Programs

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 *)

Formula

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