OFFSET
1,1
COMMENTS
EXAMPLE
181-180=1^2;181+180=19^2;349-180=13^2,349+180=23^2;2029-180=43^2,2029+180=47^2;8101-180=89^2,8101+180=91^2;
MATHEMATICA
q=180; Select[Table[Prime[n], {n, 3*9!}], IntegerQ[Sqrt[ #-q]]&&IntegerQ[Sqrt[ #+q]]&]
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 16 2010
EXTENSIONS
keyword:fini,full inserted - Zak Seidov and R. J. Mathar, Jul 19 2010
STATUS
approved