A166571 Prime numbers containing the string 10.

101, 103, 107, 109, 1009, 1013, 1019, 1021, 1031, 1033, 1039, 1049, 1051, 1061, 1063, 1069, 1087, 1091, 1093, 1097, 1103, 1109, 3109, 5101, 5107, 6101, 7103, 7109, 8101, 9103, 9109, 10007, 10009, 10037, 10039, 10061, 10067, 10069, 10079, 10091, 10093

Offset: 1

Author

Vincenzo Librandi, Nov 01 2009

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A166572, A166573, A166579, A166580, A166581, A166582.

Programs

Mathematica

p10Q[n_] := Module[{idn = IntegerDigits[n]}, MemberQ[Partition[idn, 2, 1], {1, 0}]]; Select[Prime[Range[1250]], p10Q] (* Vincenzo Librandi, Sep 14 2012 *)

PARI

contains(n,k)=my(N=digits(n),K=digits(k)); for(i=0,#N-#K, for(j=1,#K,if(N[i+j]!=K[j],next(2))); return(1)); 0
is(n)=isprime(n) && contains(n,10) \\ Charles R Greathouse IV, Jun 20 2014

Formula

a(n) ~ n log n. - Charles R Greathouse IV, Jun 20 2014

Extensions

Corrected (1087 inserted) by R. J. Mathar, Nov 30 2009