|
|
A082808
|
|
Palindromic primes whose digit permutation yields at least one other palindromic prime.
|
|
2
|
|
|
101, 10301, 10501, 17971, 30103, 30703, 30803, 37273, 39293, 70207, 70507, 71917, 73237, 79397, 93239, 97379, 1003001, 1008001, 1028201, 1035301, 1043401, 1055501, 1065601, 1074701, 1082801, 1085801, 1093901, 1153511
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
101 gives 011 = 11, 17971 gives 71917.
|
|
MATHEMATICA
|
oppQ[n_]:=Count[FromDigits/@Permutations[IntegerDigits[n]], _?(PrimeQ[#]&&PalindromeQ[#]&)]>1; Select[Prime[Range[100000]], PalindromeQ[#] && ooppQ[ #]&] (* Harvey P. Dale, Aug 14 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 20 2003
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|