|
|
A190307
|
|
Prime numbers containing the digit string 137.
|
|
1
|
|
|
137, 1373, 2137, 3137, 9137, 13709, 13711, 13721, 13723, 13729, 13751, 13757, 13759, 13763, 13781, 13789, 13799, 15137, 17137, 21377, 21379, 24137, 29137, 30137, 31379, 36137, 45137, 47137, 51137, 61379, 62137, 66137, 77137, 78137, 81371, 81373, 83137, 84137, 86137, 89137, 91373
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
s137Q[n_]:=MemberQ[Partition[IntegerDigits[n], 3, 1], {1, 3, 7}]; Select[ Prime[ Range[9000]], s137Q] (* Harvey P. Dale, May 24 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,less
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|