|
|
A167282
|
|
Primes containing 777 as a substring.
|
|
5
|
|
|
1777, 2777, 11777, 19777, 22777, 26777, 27773, 27779, 41777, 43777, 44777, 47777, 47779, 50777, 53777, 57773, 65777, 67777, 68777, 71777, 76777, 77711, 77713, 77719, 77723, 77731, 77743, 77747, 77761, 77773, 77783, 77797, 79777, 80777
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
p777Q[n_] := Module[{idn=IntegerDigits[n]}, MemberQ[Partition[idn, 3, 1], {7, 7, 7}]]; Select[Prime[Range[10000]], p777Q] (* Vincenzo Librandi, Sep 15 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|