login
Primes containing only digits from the set (0,1,2,3,4,5,6).
2

%I #14 Nov 20 2019 19:14:51

%S 2,3,5,11,13,23,31,41,43,53,61,101,103,113,131,151,163,211,223,233,

%T 241,251,263,311,313,331,353,401,421,431,433,443,461,463,503,521,523,

%U 541,563,601,613,631,641,643,653,661,1013,1021,1031,1033,1051,1061,1063

%N Primes containing only digits from the set (0,1,2,3,4,5,6).

%H James Maynard and Brady Haran, <a href="https://www.youtube.com/watch?v=eeoBCS7IEqs">Primes without a 7</a>, Numberphile video (2019)

%t Select[Prime[Range[200]],Max[IntegerDigits[#]]<7&] (* _Harvey P. Dale_, Feb 08 2019 *)

%Y Cf. A036952-A036964.

%K nonn,base

%O 1,1

%A _Patrick De Geest_, Jan 04 1999

%E Offset 1 from _Michel Marcus_, Oct 10 2019