A083185 Palindromic primes using only nonprime digits (0,1,4,6,8,9).

11, 101, 181, 191, 919, 10601, 11411, 16061, 16661, 18181, 18481, 19891, 19991, 91019, 94049, 94649, 94849, 94949, 96469, 98689, 1008001, 1114111, 1160611, 1180811, 1186811, 1190911, 1196911, 1409041, 1411141, 1444441, 1461641

Offset: 1

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 26 2003

Keywords

• base
• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..100
• P. De Geest, World!Of Palindromic Primes

Crossrefs

Cf. A045336, A019546, A002385.

Palindromes in A034844.

Programs

Mathematica

Select[ Prime[ Range[111500]], IntegerDigits[ # ] == Reverse[ IntegerDigits[ # ]] && Union[ Join[ IntegerDigits[ # ], {0, 1, 4, 6, 8, 9}]] == {0, 1, 4, 6, 8, 9} & ]
Select[Prime[Range[120000]],PalindromeQ[#]&&NoneTrue[IntegerDigits[#], PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 08 2018 *)

Extensions

Edited and extended by Patrick De Geest, Jun 11 2003