OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..10000
EXAMPLE
17971 and its anagram 71917 are both palindromic primes, so they are in the sequence.
MATHEMATICA
myQ[n_]:=Select[FromDigits/@Permutations[IntegerDigits[n]],
#!=n&&IntegerLength[n]==IntegerLength[#]&&PalindromeQ[#]&&PrimeQ[#]&]!={};
pp=Cases[Import["https://oeis.org/A002385/b002385.txt", "Table"], {_, _}][[All, 2]]; Select[Table[pp[[i]], {i, 1, 200}], myQ[#]&]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ivan N. Ianakiev, Jun 27 2021
STATUS
approved