|
%I #6 Mar 01 2015 15:18:14
%S 2,101,887,1151,32423,33623,36263,38873,72617,73037,78887,79697,82727,
%T 87977,94049,96059,96269,99689,112031,114641,117281,119291,122921,
%U 126761,136463,178697,1186811,1239311,1374731,1537241,1604951,1615151
%N Primes which can be represented as the sum of a square and its reverse.
%e 887 is a term because it is prime and it is the sum of square 196 and its reverse 691.
%t With[{nn=40},Take[Union[Select[Table[n^2+FromDigits[Reverse[ IntegerDigits[ n^2]]],{n,100nn}],PrimeQ]],nn]] (* _Harvey P. Dale_, Mar 01 2015 *)
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Jul 20 2002
|
