This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A119431 #7 Feb 29 2020 03:31:13 %S A119431 6,10,14,22,26,34,38,46,58,62,74,82,86,94,105,106,118,122,134,142,146, %T A119431 158,165,166,178,194,195,202,206,214,218,226,254,262,274,278,298,302, %U A119431 314,326,334,346,358,362,382,386,394,398,422,446,454,458,466,478,482 %N A119431 Primitive elements of A054741. %C A119431 Elements of A054741 that are not divisible by any smaller element of that sequence. %H A119431 Amiram Eldar, <a href="/A119431/b119431.txt">Table of n, a(n) for n = 1..10000</a> %F A119431 Consists of 2p for p an odd prime, plus odd elements of A119433. %t A119431 seqQ[n_] := 2*EulerPhi[n] < n; primQ[n_] := seqQ[n] && AllTrue[Most@Divisors[n], ! seqQ[#] &]; Select[Range[500], primQ] (* _Amiram Eldar_, Feb 29 2020 *) %Y A119431 Cf. A054741, A119433. %K A119431 nonn %O A119431 1,1 %A A119431 _Franklin T. Adams-Watters_, May 19 2006