A179484 Primes p such that p+-180 are squares.
181, 349, 2029, 8101
Offset: 1
Examples
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;
Programs
-
Mathematica
q=180;Select[Table[Prime[n],{n,3*9!}],IntegerQ[Sqrt[ #-q]]&&IntegerQ[Sqrt[ #+q]]&]
Extensions
keyword:fini,full inserted - Zak Seidov and R. J. Mathar, Jul 19 2010
Comments