%I #10 Sep 08 2022 08:45:48
%S 17,431,1151,1979,6029,9323,11321,13877,17891,41597,45863,49193,62639,
%T 66851,68543,91151,99719,113147,117413,132533,136277,151631,153269,
%U 159839,174491,178397,199799,411101,419183,419777,437543,451637
%N Primes p such that (p reversed)+10 is a square.
%H Vincenzo Librandi, <a href="/A167474/b167474.txt">Table of n, a(n) for n = 1..200</a>
%e 17->71+10=9^2; 431->134+10=12^2; 1151->1511+10=39^2; 9323->3239+10=57^2.
%t Select[Prime[Range[460000]], IntegerQ[Sqrt[FromDigits[Reverse[ IntegerDigits[#]]] + 10]] &](* _Vincenzo Librandi_, Sep 15 2013 *)
%o (Magma) [p: p in PrimesInInterval(2,460000) | IsSquare(q+10) where q is Seqint(Reverse(Intseq(p)))]; // _Vincenzo Librandi_, Sep 15 2013
%K nonn,base,less
%O 1,1
%A _Vincenzo Librandi_, Nov 04 2009
|