A062333 Primes starting and ending with 3.
3, 313, 353, 373, 383, 3023, 3083, 3163, 3203, 3253, 3313, 3323, 3343, 3373, 3413, 3433, 3463, 3533, 3583, 3593, 3613, 3623, 3643, 3673, 3733, 3793, 3803, 3823, 3833, 3853, 3863, 3923, 3943, 30013, 30103, 30113, 30133, 30203, 30223, 30253, 30293
Offset: 1
Examples
3413 is a member, as it is a prime and the first and the last digits are both 3.
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
se3Q[n_]:=Module[{idn=IntegerDigits[n]},idn[[1]]==idn[[-1]]==3]; Select[ Prime[ Range[3300]],se3Q] (* Harvey P. Dale, Jul 24 2019 *)
-
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
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), Jun 29 2001
Offset changed by Andrew Howroyd, Sep 17 2024
Comments