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 A138327 #7 Oct 09 2021 04:42:21
%S A138327 2,6,11,14,26,35,41,45,51
%N A138327 Nonsquares not representable as p+g, where p is a prime and g is a primitive root of p.
%C A138327 This is sequence is probably complete.
%C A138327 There are no more terms below 10^5. - _Amiram Eldar_, Oct 09 2021
%t A138327 seq[m_] := Module[{p = Select[Range[m], PrimeQ], s}, s = Complement[Range[m], p + PrimitiveRootList[p] // Flatten]; Select[s, !IntegerQ @ Sqrt[#] &]]; seq[100] (* _Amiram Eldar_, Oct 09 2021 *)
%Y A138327 Cf. A060749 (primitive roots), A138326.
%K A138327 nonn,more
%O A138327 1,1
%A A138327 _T. D. Noe_, Mar 14 2008