%I A045336
%S A045336 2,3,5,7,353,373,727,757,32323,33533,35353,35753,37273,37573,72227,
%T A045336 72727,73237,75557,77377,3222223,3223223,3233323,3252523,3272723,
%U A045336 3337333,3353533,3553553,3722273,3732373,3773773,7257527,7327237
%N A045336 Palindromic prime primes: palindromic terms from A019546.
%t A045336 Select[ Range[ 1, 10^7 ], PrimeQ[ # ] && FreeQ[ RealDigits[ # ][ [ 1 
               ] ], 0 ] && FreeQ[ RealDigits[ # ][ [ 1 ] ], 1 ] && FreeQ[ RealDigits[ 
               # ][ [ 1 ] ], 4 ] && FreeQ[ RealDigits[ # ][ [ 1 ] ], 6 ] && FreeQ[ 
               RealDigits[ # ][ [ 1 ] ], 8 ] && FreeQ[ RealDigits[ # ][ [ 1 ] ], 
               9 ] && RealDigits[ # ][ [ 1 ] ] == Reverse[ RealDigits[ # ][ [ 1 
               ] ] ] & ]
%Y A045336 Cf. A019546 and A002385.
%Y A045336 Sequence in context: A052024 A052023 A052025 this_sequence A083183 A046477 
               A145843
%Y A045336 Adjacent sequences: A045333 A045334 A045335 this_sequence A045337 A045338 
               A045339
%K A045336 nonn
%O A045336 1,1
%A A045336 Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 18 2000