login
A180685
Primes consisting of all of the cube digits (i.e., 0, 1 and 8) at least once.
1
1801, 8011, 8081, 8101, 10181, 11801, 80111, 81001, 81101, 88001, 88801, 100801, 100811, 101081, 108011, 108881, 110881, 118081, 118801, 180001, 180181, 180811, 181001, 181081, 188011, 188801, 800011, 800801, 801001, 801011, 801811, 808081
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
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
Sequence in context: A035767 A107563 A020402 * A222418 A252676 A248063
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Sep 16 2010
STATUS
approved