OFFSET
1,1
REFERENCES
C. Clawson, Mathematical Mysteries, Plenum Press, 1996, p. 173
MATHEMATICA
Select[Abs[2*Range[-15, 70]^2-199], PrimeQ]//Union (* Harvey P. Dale, Mar 20 2018 *)
PROG
(PARI) isok(n) = isprime(n) && (n != 199) && (issquare((n+199)/2) || issquare((199-n)/2)); \\ Michel Marcus, Sep 28 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved