A167472 - OEIS

%I #12 Aug 13 2024 14:18:52

%S 3,877,3049,3631,4951,4999,5197,5743,8101,8377,9103,9109,9127,34273,

%T 36721,36781,36943,36979,38671,49069,49993,51769,53437,55171,55987,

%U 59509,81817,81931,87277,87613,89119,91243,300499,304021,306421

%N Primes p such that (p reversed) +6 is a square.

%H Vincenzo Librandi, <a href="/A167472/b167472.txt">Table of n, a(n) for n = 1..640</a>

%e 877->778+6=28^2; 8101->1018+6=32^2; 3049->9403+6=97^2.

%t Select[Prime[Range[30000]], IntegerQ[Sqrt[FromDigits[Reverse[ IntegerDigits[#]]] + 6]]&] (* _Vincenzo Librandi_, Sep 15 2013 *)

%t Select[Prime[Range[30000]],IntegerQ[Sqrt[IntegerReverse[#]+6]]&] (* _Harvey P. Dale_, Aug 13 2024 *)

%o (Magma) [p: p in PrimesInInterval(2,350000) | IsSquare(q+6) 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