A036947
Smallest n-digit prime containing only the digits 5 and 9, or 0 if no such prime exists.
Original entry on oeis.org
5, 59, 599, 0, 59999, 599959, 5595559, 55555559, 555555599, 5555555959, 55555595999, 555555555559, 5555555599999, 55555555595599, 555555555995959, 5555555555559959, 55555555555555999, 555555555555555559
Offset: 1
A036948
Smallest n-digit prime containing only the digits 6 and 7, or 0 if no such prime exists.
Original entry on oeis.org
7, 67, 677, 0, 67777, 666667, 6676667, 66666667, 666666667, 6666666767, 66666666667, 666666676667, 6666666667777, 66666667677767, 666666666667777, 6666666666767777, 66666666666667667, 666666666666676667
Offset: 1
-
Table[SelectFirst[10#+7&/@FromDigits/@Tuples[{6,7},n],PrimeQ],{n,0,17}]/. (Missing["NotFound"]->0) (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 08 2019 *)
A036949
Smallest n-digit prime containing only the digits 7 and 8, or 0 if no such prime exists.
Original entry on oeis.org
7, 0, 787, 7877, 78787, 777787, 7778777, 77778887, 777788887, 7777778887, 77777778887, 777777777877, 7777777787777, 77777777778787, 777777777777787, 7777777778788777, 77777777777778887, 777777777787878887
Offset: 1
-
Table[SelectFirst[FromDigits/@Tuples[{7,8},n],PrimeQ],{n,18}]/.Missing[ "NotFound"]->0 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 07 2018 *)
A036950
Smallest n-digit prime containing only the digits 7 and 9, or 0 if no such prime exists.
Original entry on oeis.org
7, 79, 797, 0, 77797, 777977, 7777997, 77779799, 777777799, 7777779799, 77777779979, 777777779777, 7777777779977, 77777777777977, 777777777779797, 7777777777797799, 77777777777777797, 777777777777797977
Offset: 1