A216330 - OEIS

A216330

Squares equal to the difference between two successive primes of the form n^2+1.

64, 144, 100, 1024, 4900, 10816, 11664, 12544, 18496, 102400, 41616, 46656, 331776, 298116, 44100, 451584, 270400, 141376, 372100, 678976, 504100, 1849600, 524176, 2890000, 3504384, 602176, 685584, 8702500, 1768900, 2160900, 868624, 532900, 624100, 12960000

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

Table of n, a(n) for n=1..34.

EXAMPLE

64 is in the sequence because 6^2 + 1 = 37, 10^2+1 = 101 and 101 - 37 = 64 is square.

MAPLE

q:=2:for n from 2 to 100 do:p:=n^2+1:if type(p, prime)=true then x:=p-q:q:=p: z:=sqrt(x):if z=floor(z) then printf(`%d, `, z):else fi:od:

MATHEMATICA

Select[#[[2]]-#[[1]]&/@Partition[Select[Range[2000000]^2+1, PrimeQ], 2, 1], IntegerQ[ Sqrt[#]]&] (* Harvey P. Dale, Nov 08 2017 *)

CROSSREFS