A214702 Primes of the form XYYYYX, where Y is a single digit.

100333331003, 100388881003, 100733331007, 100766661007, 100999991009, 101333331013, 101377771013, 101755551017, 102155551021, 102722221027, 102733331027, 102922221029, 102944441029, 103133331031, 103177771031, 103199991031, 103322221033, 103366661033

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

f[n_]:=Block[{len=Floor[Log[10, n]+1]}, Select[10^(4+len) n+10^len*Table[k (10^4-1)/9, {k, 9}]+n, PrimeQ@#&]]; Array[f, 3509]//Flatten

Prog

(Magma) m:=4; [p: d in [1..9], n in [1..2000 by 2] | IsPrime(p) where p is n*(10^(m+t)+1)+d*10^t*(10^m-1) div 9 where t is #Intseq(n)]; // Vincenzo Librandi, Sep 14 2013

Crossrefs

Cf. A154270, A162423, A214290, A214291.

Sequence in context: A017651 A072145 A192108 * A164935 A349321 A168340

Adjacent sequences: A214699 A214700 A214701 * A214703 A214704 A214705

Keyword

nonn,base

Author

Vincenzo Librandi, Jul 27 2012

Status

approved