%I #12 Oct 20 2019 17:38:49
%S 11,101,181,191,919,10601,11411,16061,16661,18181,18481,19891,19991,
%T 91019,94049,94649,94849,94949,96469,98689,1008001,1114111,1160611,
%U 1180811,1186811,1190911,1196911,1409041,1411141,1444441,1461641
%N Palindromic primes using only nonprime digits (0,1,4,6,8,9).
%H Harvey P. Dale, <a href="/A083185/b083185.txt">Table of n, a(n) for n = 1..100</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/em_palpri.htm">World!Of Palindromic Primes</a>
%t Select[ Prime[ Range[111500]], IntegerDigits[ # ] == Reverse[ IntegerDigits[ # ]] && Union[ Join[ IntegerDigits[ # ], {0, 1, 4, 6, 8, 9}]] == {0, 1, 4, 6, 8, 9} & ]
%t Select[Prime[Range[120000]],PalindromeQ[#]&&NoneTrue[IntegerDigits[#], PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 08 2018 *)
%Y Cf. A045336, A019546, A002385.
%Y Palindromes in A034844.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 26 2003
%E Edited and extended by _Patrick De Geest_, Jun 11 2003
|