Palindromes which are prime and the sum of the digits is also prime.
Duplicate of A082806.
2, 3, 5, 7, 11, 101, 131, 151, 191, 313, 353, 373, 757, 797, 919, 10301, 10501, 11311, 12721, 13331, 13931, 14341, 14741, 15551, 16361, 16561, 18181, 19391, 19991, 30103, 30703, 31513, 32323, 33533, 34543, 35153, 35353, 35753, 36563, 38183
Suggested by Amarnath Murthy
E.g. 12721 is a palindromic prime and 1+2+7+2+1 = 13 is also prime.
Select[ Range[390000], PrimeQ[ # ] && FromDigits[ Reverse[ IntegerDigits[ # ]]] == # && PrimeQ[ Plus @@ IntegerDigits[ # ]] & ]
nonn,base,new
dead
Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 14 2003
Edited, corrected and extended by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 17 2003