|
|
A138327
|
|
Nonsquares not representable as p+g, where p is a prime and g is a primitive root of p.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This is sequence is probably complete.
There are no more terms below 10^5. - Amiram Eldar, Oct 09 2021
|
|
LINKS
|
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|