OFFSET
1,1
COMMENTS
This is sequence is probably complete.
There are no more terms below 10^5. - Amiram Eldar, Oct 09 2021
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
T. D. Noe, Mar 14 2008
STATUS
approved