login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Nonsquares not representable as p+g, where p is a prime and g is a primitive root of p.
1

%I #7 Oct 09 2021 04:42:21

%S 2,6,11,14,26,35,41,45,51

%N Nonsquares not representable as p+g, where p is a prime and g is a primitive root of p.

%C This is sequence is probably complete.

%C There are no more terms below 10^5. - _Amiram Eldar_, Oct 09 2021

%t 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 Cf. A060749 (primitive roots), A138326.

%K nonn,more

%O 1,1

%A _T. D. Noe_, Mar 14 2008