A109270 Numbers k such that k^2 > (1/2)*(prevprime(k^2) + nextprime(k^2)).

4, 6, 10, 11, 14, 16, 17, 20, 22, 24, 26, 28, 30, 31, 36, 38, 39, 40, 45, 48, 50, 52, 54, 56, 57, 59, 62, 65, 66, 67, 70, 73, 74, 76, 79, 81, 84, 85, 87, 90, 91, 94, 95, 96, 97, 99, 100, 104, 105, 106, 109, 110, 111, 114, 115, 116, 120, 122, 123, 124, 125, 126, 130, 134

Offset: 1

Author

Zak Seidov, Jun 24 2005

Keywords

• nonn
• changed

Comments

One may call these k^2 the "strong squares" by analogy with A051634 (strong primes).

Examples

			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.
		

Crossrefs

Cf. A051634, A033597, A075190, A109269.

Cf. A024675.

Programs

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 *)

Extensions

More terms from Emeric Deutsch, Jun 26 2005