|
|
A130864
|
|
Numbers x such that x + reverse of x is a non-palindromic prime.
|
|
1
|
|
|
158, 166, 170, 172, 178, 182, 188, 190, 196, 229, 239, 257, 265, 269, 271, 277, 281, 287, 295, 299, 328, 338, 356, 364, 368, 370, 376, 380, 386, 394, 398, 427, 437, 439, 455, 463, 467, 469, 475, 479, 485, 493, 497, 499, 526, 536, 538, 554, 562, 566, 568
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[1000], PrimeQ[ # + FromDigits[Reverse[IntegerDigits[ # ]]]] && # + FromDigits[Reverse[IntegerDigits[ # ]]] != FromDigits[ Reverse[IntegerDigits[ # + FromDigits[Reverse[IntegerDigits[ # ]]]]]] &]
nppQ[n_]:=With[{c=n+IntegerReverse[n]}, PrimeQ[c]&&!PalindromeQ[c]]; Select[ Range[600], nppQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 27 2021 *)
|
|
CROSSREFS
|
A subsequence of A072366 = Numbers x such that x + reverse of x is a prime.
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|