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,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..100

P. De Geest, World!Of Palindromic Primes

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

Crossrefs

Cf. A045336, A019546, A002385.

Palindromes in A034844.

Sequence in context: A168536 A089716 A084987 * A007597 A061247 A199328

Adjacent sequences: A083182 A083183 A083184 * A083186 A083187 A083188

Keyword

base,nonn

Author

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

Extensions

Edited and extended by Patrick De Geest, Jun 11 2003

Status

approved