A385779 Primes having only {1, 5, 6} as digits.
5, 11, 61, 151, 661, 1151, 1511, 5651, 6151, 6551, 6661, 11161, 11551, 15161, 15511, 15551, 15661, 16111, 16561, 16651, 16661, 51151, 51511, 51551, 55511, 55661, 56611, 61151, 61511, 61561, 61651, 65111, 65551, 65651, 66161, 111611, 115151, 115561, 151561
Offset: 1
Links
Programs
-
Magma
[p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [1, 5, 6]];
-
Mathematica
Flatten[Table[Select[FromDigits /@ Tuples[{1, 5, 6}, n], PrimeQ], {n, 7}]]
-
PARI
primes_with(, 1, [1, 5, 6]) \\ uses function in A385776
-
Python
print(list(islice(primes_with("156"), 41))) # uses function/imports in A385776