login
Palindromic primes having at least one different anagram that is also a palindromic prime.
1

%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