%I A096473
%S A096473 5,11,101,191,727,929,30803,74047,77477,1123211,1150511,1338331,1444441,
%T A096473 1684861,1761671,3065603,3392933,3503053,3541453,9779779,9845489,
%U A096473 9926299,9927299,9932399,112959211,113030311,114535411,119676911
%N A096473 Palindromic good primes.
%C A096473 p is in the sequence iff p is in the sequences A028388 and A002385.
%H A096473 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               GoodPrime.html">Good Prime</a>
%H A096473 C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_273.htm">
               Consecutive 'good' primes </a>
%e A096473 11 is in the sequence because 11 is a palindromic number which is
%e A096473 a good prime(11^2>7*13, 11^2>5*17, 11^2>3*19 & 11^2>2*23).
%t A096473 b[n_]:=(For[m=1, m<n&&Prime[n]^2>Prime[n-m]Prime[n+m], m++ ];m); v={};
               Do[If[IntegerDigits[Prime[n]]==Reverse[IntegerDigits[Prime [n]]]&& 
               b[n]==n, v=Append[v, Prime[n]];Print[v]], {n, 6986301}]
%Y A096473 Cf. A028388, A002385.
%Y A096473 Sequence in context: A053778 A030079 A066596 this_sequence A007530 A157967 
               A088268
%Y A096473 Adjacent sequences: A096470 A096471 A096472 this_sequence A096474 A096475 
               A096476
%K A096473 base,nonn
%O A096473 1,1
%A A096473 Farideh Firoozbakht (mymontain(AT)yahoo.com), Jun 28 2004