OFFSET
1,1
REFERENCES
Chris K. Caldwill & G. L. Honaker, Jr., Prime Curios!, The Dictionary of Prime Number Trivia, CreateSpace, Sept. 2009, p. 121.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
MATHEMATICA
Select[ Prime@ Range@ 64541, Union@ IntegerDigits@ # == {0, 1, 8} &]
Select[FromDigits/@(Join[#, {1}]&/@Tuples[{0, 1, 8}, 5]), DigitCount[ #, 10, 1]>0 && DigitCount[#, 10, 8]>0&&DigitCount[#, 10, 0]>0&&PrimeQ[#]&] (* Harvey P. Dale, Mar 26 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Sep 16 2010
STATUS
approved