A180685 Primes consisting of all of the cube digits (i.e., 0, 1 and 8) at least once.

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

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

Sequence in context: A035767 A107563 A020402 * A222418 A252676 A248063

Adjacent sequences: A180682 A180683 A180684 * A180686 A180687 A180688

Keyword

nonn,base

Author

Robert G. Wilson v, Sep 16 2010

Status

approved