Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%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