%I #7 Nov 09 2019 04:14:34
%S 41,43,241,401,421,431,433,443,1423,1433,2141,2143,2243,2341,2411,
%T 2423,2441,3041,3343,3413,3433,4001,4003,4013,4021,4111,4133,4201,
%U 4211,4231,4241,4243
%N Primes with maximal digit = 4.
%H Amiram Eldar, <a href="/A106098/b106098.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[600]], Max[IntegerDigits[ # ]]==4&]
%Y Cf. A106100, A106099, A106097, A106096, A106095, A106094, A106093.
%K nonn,base
%O 1,1
%A _Zak Seidov_, May 07 2005