A386114 - OEIS

%I #6 Jul 17 2025 02:55:22

%S 3,7,11,13,17,31,37,61,67,71,73,113,131,137,163,167,173,311,313,317,

%T 331,337,367,373,613,617,631,661,673,677,733,761,773,1117,1163,1171,

%U 1361,1367,1373,1613,1637,1663,1667,1733,1777,3137,3163,3167,3313,3331,3361

%N Primes having only {1, 3, 6, 7} as digits.

%H Jason Bard, <a href="/A386114/b386114.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Pri#PrimesWithDigits">Index to entries for primes with digits in a given set</a>

%t Flatten[Table[Select[FromDigits /@ Tuples[{1, 3, 6, 7}, n], PrimeQ], {n, 7}]]

%o (Magma) [p: p in PrimesUpTo(10^6) | Set(Intseq(p)) subset [1, 3, 6, 7]];

%o (Python) print(list(islice(primes_with("1367"), 41))) # uses function/imports in A385776

%o (PARI) primes_with(, 1, [1, 3, 6, 7]) \\ uses function in A385776

%Y Supersequence of A260379, A260380, A260891, A385777.

%Y Cf. A000040, A385776.

%K nonn,base,easy

%O 1,1

%A _Jason Bard_, Jul 17 2025