A091920 Smallest n-digit prime with digits from {1,4,7} only, or 0 if no such prime exists.
7, 11, 0, 1117, 11117, 0, 1111447, 11111117, 0, 1111111411, 11111111741, 0, 1111111111177, 11111111111411, 0, 1111111111111447, 11111111111111171, 0, 1111111111111111111, 11111111111111111447, 0, 1111111111111111111711
Offset: 1
Links
- Jinyuan Wang, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
Flatten[Table[Select[FromDigits/@Tuples[{1, 4, 7}, n], PrimeQ, 1], {n, 25}]/.{}->{0}] (* Jinyuan Wang, Mar 09 2020 *)
Comments