login
A036930
Smallest n-digit prime containing only digits 1 and 3, or 0 if no such prime exists.
1
3, 11, 113, 3313, 11113, 113111, 1111333, 11111131, 111111113, 1111113313, 11111111113, 111111133333, 1111111111333, 11111111113133, 111111111113113, 1111111111313131, 11111111111131333, 111111111111111131
OFFSET
1,1
LINKS
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{1, 3}, n], PrimeQ, 1], {n, 18}]] (* Harvey P. Dale, Jul 23 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jan 04 1999
EXTENSIONS
Corrected by Harvey P. Dale, Jul 23 2012
STATUS
approved