A130864 Numbers x such that x + reverse of x is a non-palindromic prime.

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

Offset: 0

Author

Tanya Khovanova, Jul 23 2007

Keywords

• base
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..4500

Crossrefs

A subsequence of A072366 = Numbers x such that x + reverse of x is a prime.

Programs

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