|
|
A167281
|
|
Primes containing the string 555.
|
|
5
|
|
|
5557, 15551, 15559, 45553, 45557, 55501, 55511, 55529, 55541, 55547, 55579, 55589, 65551, 65557, 75553, 75557, 105557, 115553, 125551, 135559, 155501, 155509, 155521, 155537, 155539, 155557, 155569, 155579, 155581, 155593, 155599, 165551
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
p555Q[n_] := Module[{idn=IntegerDigits[n]}, MemberQ[Partition[idn, 3, 1], {5, 5, 5}]]; Select[Prime[Range[16000]], p555Q] (* Vincenzo Librandi, Sep 15 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|