This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A216330 #6 Nov 08 2017 17:35:28 %S A216330 64,144,100,1024,4900,10816,11664,12544,18496,102400,41616,46656, %T A216330 331776,298116,44100,451584,270400,141376,372100,678976,504100, %U A216330 1849600,524176,2890000,3504384,602176,685584,8702500,1768900,2160900,868624,532900,624100,12960000 %N A216330 Squares equal to the difference between two successive primes of the form n^2+1. %e A216330 64 is in the sequence because 6^2 + 1 = 37, 10^2+1 = 101 and 101 - 37 = 64 is square. %p A216330 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: %t A216330 Select[#[[2]]-#[[1]]&/@Partition[Select[Range[2000000]^2+1,PrimeQ],2,1], IntegerQ[ Sqrt[#]]&] (* _Harvey P. Dale_, Nov 08 2017 *) %Y A216330 Cf. A193558. %K A216330 nonn %O A216330 1,1 %A A216330 _Michel Lagneau_, Sep 04 2012