%I A031881
%S A031881 3,7,151,727,787,10501,13831,18181,30103,70207,72727,77377,78487,93139,
%T A031881 94849,96469,96769,98689,1008001,1062601,1160611,1190911,1253521,
%U A031881 1327231,1409041,1447441,1463641,1490941,1640461,1670761,1684861
%N A031881 Lucky numbers both palindromic and prime.
%t A031881 lst = Range[1, 10^6, 2]; i = 2; While[lst[[i]] <= Length[lst], del = 
               Partition[Range[lst[[i]], Length[lst], lst[[i]]], 1]; lst = Delete[lst, 
               del]; i++ ]; lst = Select[lst, PrimeQ[ # ] &]; lst = Select[lst, 
               (ToString[ # ] == StringReverse[ToString[ # ]]) &]
%Y A031881 Cf. A000959.
%Y A031881 Sequence in context: A012636 A006031 A119958 this_sequence A114789 A128273 
               A105763
%Y A031881 Adjacent sequences: A031878 A031879 A031880 this_sequence A031882 A031883 
               A031884
%K A031881 nonn
%O A031881 1,1
%A A031881 Patrick De Geest (pdg(AT)worldofnumbers.com)
%E A031881 Corrected and extended by Vit Planocka (planocka(AT)mistral.cz), Jan 
               31 2003