|
%I #4 Mar 31 2012 12:38:37
%S 181,349,2029,8101
%N Primes p such that p+-180 are squares.
%C Sequences of this type searching for p+d=s^2, p-d=t^2 (here: d=180) are finite because the difference 2d=(s+t)(s-t) has a finite set of solutions -- found by scanning the divisors of 2d (see A060829, A061409). [R. J. Mathar, Jul 20 2010]
%e 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;
%t q=180;Select[Table[Prime[n],{n,3*9!}],IntegerQ[Sqrt[ #-q]]&&IntegerQ[Sqrt[ #+q]]&]
%K nonn,fini,full
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jul 16 2010
%E keyword:fini,full inserted - _Zak Seidov_ and _R. J. Mathar_, Jul 19 2010
|
