|
|
A084121
|
|
Primes p_n such that n*p_n is a palindrome.
|
|
2
|
|
|
2, 3, 11, 37, 53, 33827, 39119, 9260479, 10708871, 23858227, 65941772591
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
The 4119th prime 39119 is in the sequence since 4199*39119 = 161131161 is a palindrome.
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|