%I #17 Sep 17 2024 12:06:46
%S 3,313,353,373,383,3023,3083,3163,3203,3253,3313,3323,3343,3373,3413,
%T 3433,3463,3533,3583,3593,3613,3623,3643,3673,3733,3793,3803,3823,
%U 3833,3853,3863,3923,3943,30013,30103,30113,30133,30203,30223,30253,30293
%N Primes starting and ending with 3.
%C Intersection of A045709 and A030431. - _Michel Marcus_, Jun 08 2013
%H Harry J. Smith, <a href="/A062333/b062333.txt">Table of n, a(n) for n = 1..1000</a>
%e 3413 is a member, as it is a prime and the first and the last digits are both 3.
%t se3Q[n_]:=Module[{idn=IntegerDigits[n]},idn[[1]]==idn[[-1]]==3]; Select[ Prime[ Range[3300]],se3Q] (* _Harvey P. Dale_, Jul 24 2019 *)
%o (PARI) { n=-1; t=log(10); forprime (p=2, 5*10^5, if ((p-10*(p\10)) == 3 && (p\10^(log(p)\t)) == 3, write("b062333.txt", n++, " ", p); if (n==1000, break)) ) } \\ _Harry J. Smith_, Aug 05 2009
%Y Cf. A062332, A062334, A062335.
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, Jun 21 2001
%E More terms from Larry Reeves (larryr(AT)acm.org), Jun 29 2001
%E Offset changed by _Andrew Howroyd_, Sep 17 2024