%I #10 Jul 18 2021 20:48:56
%S 17971,37273,39293,71917,73237,79397,93239,97379,1028201,1074701,
%T 1082801,1085801,1093901,1153511,1175711,1178711,1190911,1208021,
%U 1242421,1250521,1268621,1280821,1286821,1303031,1327231,1328231,1335331,1360631,1363631
%N Palindromic primes having at least one different anagram that is also a palindromic prime.
%H Chai Wah Wu, <a href="/A345869/b345869.txt">Table of n, a(n) for n = 1..10000</a>
%e 17971 and its anagram 71917 are both palindromic primes, so they are in the sequence.
%t myQ[n_]:=Select[FromDigits/@Permutations[IntegerDigits[n]],
%t #!=n&&IntegerLength[n]==IntegerLength[#]&&PalindromeQ[#]&&PrimeQ[#]&]!={};
%t pp=Cases[Import["https://oeis.org/A002385/b002385.txt","Table"],{_,_}][[All,2]];Select[Table[pp[[i]],{i,1,200}],myQ[#]&]
%Y Cf. A002385.
%K nonn,base
%O 1,1
%A _Ivan N. Ianakiev_, Jun 27 2021
|