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 A070269 #11 Oct 19 2021 02:51:21
%S A070269 2,409,439,3631,4441,4657,8681,12841,15889,16633,21559,22751,28393,
%T A070269 30091,30937,32257,32353,33811,33871,36793,36871,41809,41851,42193,
%U A070269 46649,48673,51631,55921,58237,59053,59497,60889,63691,64609,71011
%N A070269 Primes for which the smallest positive primitive root is odd and nonprime.
%H A070269 Amiram Eldar, <a href="/A070269/b070269.txt">Table of n, a(n) for n = 1..10000</a>
%t A070269 onpQ[n_]:=Module[{pr=PrimitiveRoot[n,1]},OddQ[pr]&&!PrimeQ[pr]]; Select[ Prime[ Range[7100]],onpQ] (* _Harvey P. Dale_, Jun 22 2020 *)
%o A070269 (PARI) forprime(n=1,100000,if((-1)^(lift(znprimroot(n))*(1-isprime(lift(znprimroot(n)))))==-1,print1(n,",")))
%Y A070269 Cf. A047936, A001918.
%K A070269 easy,nonn
%O A070269 1,1
%A A070269 _Benoit Cloitre_, May 09 2002