A036936 Smallest n-digit prime containing only digits 1 and 9, or 0 if no such prime exists.
0, 11, 191, 1999, 11119, 111119, 1111991, 11111119, 111111199, 1111111919, 11111111911, 111111199919, 1111111119919, 11111111119111, 111111111119119, 1111111111111999, 11111111111111119, 111111111111191111
Offset: 1
Links
- Jinyuan Wang, Table of n, a(n) for n = 1..500
Programs
-
Mathematica
Table[SelectFirst[FromDigits/@Tuples[{1,9},n],PrimeQ],{n,20}]/. Missing["NotFound"]->0 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 26 2020 *)