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,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

Cf. A054741, A119433.

Sequence in context: A369966 A055163 A342192 * A207574 A278972 A241817

Adjacent sequences: A119428 A119429 A119430 * A119432 A119433 A119434

Keyword

nonn

Author

Franklin T. Adams-Watters, May 19 2006

Status

approved