%I #16 Jul 16 2020 17:41:05
%S 2,3,11,37,53,33827,39119,9260479,10708871,23858227,65941772591
%N Primes p_n such that n*p_n is a palindrome.
%C a(12) > 10^14. [_Giovanni Resta_, Jun 28 2013]
%e The 4119th prime 39119 is in the sequence since 4199*39119 = 161131161 is a palindrome.
%t palQ[n_]:=FromDigits[Reverse[IntegerDigits[n]]]==n; t={}; Do[p=Prime[n]; If[palQ[p*n],AppendTo[t,p]],{n,15*10^5}]; t (* _Jayanta Basu_, May 11 2013 *)
%t Module[{nn=2763*10^6},Select[Thread[{Range[nn],Prime[Range[nn]]}],PalindromeQ[ Times@@ #]&]][[All,2]] (* Requires Mathematica version 10 or later *) (* The program will take a long time to run. *) (* _Harvey P. Dale_, Jul 16 2020 *)
%Y Cf. A084122, A084123.
%K base,nonn
%O 1,1
%A _Giovanni Resta_, May 14 2003
|