%I A077652
%S A077652 2,3,5,7,11,101,131,151,181,191,313,353,373,383,727,757,787,797,919,
%T A077652 929,1021,1031,1051,1061,1091,1151,1171,1181,1201,1231,1291,1301,1321,
%U A077652 1361,1381,1451,1471,1481,1511,1531,1571,1601,1621,1721,1741,1801,1811
%N A077652 Not necessarily palindromic primes of which initial and terminal decimal 
               digits are identical.
%t A077652 Do[s1=First[IntegerDigits[Prime[n]]]; s2=Last[IntegerDigits[Prime[n]]]; 
               If[Equal[s1, s2], Print[Prime[n]]], {n, 1, 1000}]
%Y A077652 Cf. A000030, A000040.
%Y A077652 Sequence in context: A083393 A052480 A083137 this_sequence A002385 A069217 
               A083139
%Y A077652 Adjacent sequences: A077649 A077650 A077651 this_sequence A077653 A077654 
               A077655
%K A077652 base,nonn
%O A077652 1,1
%A A077652 Labos E. (labos(AT)ana.sote.hu), Nov 19 2002