|
%I #6 Jan 27 2021 17:13:34
%S 158,166,170,172,178,182,188,190,196,229,239,257,265,269,271,277,281,
%T 287,295,299,328,338,356,364,368,370,376,380,386,394,398,427,437,439,
%U 455,463,467,469,475,479,485,493,497,499,526,536,538,554,562,566,568
%N Numbers x such that x + reverse of x is a non-palindromic prime.
%H Harvey P. Dale, <a href="/A130864/b130864.txt">Table of n, a(n) for n = 0..4500</a>
%t Select[Range[1000], PrimeQ[ # + FromDigits[Reverse[IntegerDigits[ # ]]]] && # + FromDigits[Reverse[IntegerDigits[ # ]]] != FromDigits[ Reverse[IntegerDigits[ # + FromDigits[Reverse[IntegerDigits[ # ]]]]]] &]
%t 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 *)
%Y A subsequence of A072366 = Numbers x such that x + reverse of x is a prime.
%K base,nonn
%O 0,1
%A _Tanya Khovanova_, Jul 23 2007
|
