OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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
Corrected and extended by Giovanni Resta, Feb 07 2006
STATUS
approved