|
|
A345869
|
|
Palindromic primes having at least one different anagram that is also a palindromic prime.
|
|
1
|
|
|
17971, 37273, 39293, 71917, 73237, 79397, 93239, 97379, 1028201, 1074701, 1082801, 1085801, 1093901, 1153511, 1175711, 1178711, 1190911, 1208021, 1242421, 1250521, 1268621, 1280821, 1286821, 1303031, 1327231, 1328231, 1335331, 1360631, 1363631
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|