OFFSET
1,1
COMMENTS
One may call these n^2 the "strong squares" by analogy with A051634 (Strong primes).
EXAMPLE
4^2=16>(13+17)/2 so 4 is a term;
5^2 < (23+29)/2=26, so 5 is not a term;
6^2=36>(31+37)/2 so 6 is a term, etc.
MAPLE
a:=proc(n) if n^2 > (1/2)*(prevprime(n^2)+nextprime(n^2)) then n else fi end: seq(a(n), n=2..150); # Emeric Deutsch, Jun 26 2005
MATHEMATICA
prQ[n_]:=Module[{n2=n^2}, n2>(NextPrime[n2]+NextPrime[n2, -1])/2]; Select[ Range[2, 150], prQ] (* Harvey P. Dale, Feb 19 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 24 2005
EXTENSIONS
More terms from Emeric Deutsch, Jun 26 2005
STATUS
approved