A084121 Primes p_n such that n*p_n is a palindrome.

2, 3, 11, 37, 53, 33827, 39119, 9260479, 10708871, 23858227, 65941772591

Offset: 1

Author

Giovanni Resta, May 14 2003

Keywords

• base
• nonn

Comments

a(12) > 10^14. [Giovanni Resta, Jun 28 2013]

Examples

			The 4119th prime 39119 is in the sequence since 4199*39119 = 161131161 is a palindrome.
		

Crossrefs

Cf. A084122, A084123.

Programs

Mathematica

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 *)
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 *)