login
Primes with maximal digit = 4.
5

%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