login
A166571
Prime numbers containing the string 10.
12
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
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
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, Nov 01 2009
EXTENSIONS
Corrected (1087 inserted) by R. J. Mathar, Nov 30 2009
STATUS
approved