This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A083185 #13 Aug 11 2024 14:41:34 %S A083185 11,101,181,191,919,10601,11411,16061,16661,18181,18481,19891,19991, %T A083185 91019,94049,94649,94849,94949,96469,98689,1008001,1114111,1160611, %U A083185 1180811,1186811,1190911,1196911,1409041,1411141,1444441,1461641 %N A083185 Palindromic primes using only nonprime digits (0,1,4,6,8,9). %H A083185 Harvey P. Dale, <a href="/A083185/b083185.txt">Table of n, a(n) for n = 1..100</a> %H A083185 P. De Geest, <a href="https://www.worldofnumbers.com/em_palpri.htm">World!Of Palindromic Primes</a> %t A083185 Select[ Prime[ Range[111500]], IntegerDigits[ # ] == Reverse[ IntegerDigits[ # ]] && Union[ Join[ IntegerDigits[ # ], {0, 1, 4, 6, 8, 9}]] == {0, 1, 4, 6, 8, 9} & ] %t A083185 Select[Prime[Range[120000]],PalindromeQ[#]&&NoneTrue[IntegerDigits[#], PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Mar 08 2018 *) %Y A083185 Cf. A045336, A019546, A002385. %Y A083185 Palindromes in A034844. %K A083185 base,nonn %O A083185 1,1 %A A083185 _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 26 2003 %E A083185 Edited and extended by _Patrick De Geest_, Jun 11 2003