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,1

Links

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

Formula

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

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A256186 A119680 A329737 * A201965 A318157 A117837

Adjacent sequences: A166568 A166569 A166570 * A166572 A166573 A166574

Keyword

nonn,base

Author

Vincenzo Librandi, Nov 01 2009

Extensions

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

Status

approved