|
| |
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
