OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
FORMULA
Primes not in A002496 (i.e., not of the form k^2+1).
a(n) ~ n log n. - Charles R Greathouse IV, Sep 30 2012
MATHEMATICA
Select[Range[320], PrimeQ[#] && !IntegerQ @ Sqrt[# - 1] &] (* Amiram Eldar, Sep 11 2019 *)
PROG
(PARI) for(n=1, 350, if(0==sum(i=1, n^2, if((n^2*i^2)%(n^2+i^2), 1-isprime(n), 1)), print1(n, ", ")))
(PARI) is(n)=isprime(n) && !issquare(n-1) \\ Charles R Greathouse IV, Sep 30 2012
(PARI) print1(3); forstep(k=2, 9, 2, forprime(p=k^2+3, (k+2)^2, print1(", "p))) \\ Charles R Greathouse IV, Sep 30 2012
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, May 10 2002
STATUS
approved