|
%I #7 Jan 23 2022 07:30:41
%S 1,4,6,8,9,12,14,15,16,18,21,22,24,25,26,27,28,32,33,34,35,36,38,39,
%T 42,44,45,46,48,49,51,52,54,55,56,57,58,62,63,64,65,66,68,69,72,74,75,
%U 76,77,78,81,82,84,85,86,87,88,91,92,93,94,95,96,98,99,111
%N Nonprimes containing no zeros in decimal representation.
%C Intersection of A052382 and A018252;
%C A168046(a(n)) * (1 - A010051(a(n)) = 1.
%H Reinhard Zumkeller, <a href="/A259315/b259315.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o a259315 n = a259315_list !! (n-1)
%o a259315_list = filter ((== 0) . a010051') a052382_list
%o (PARI) isok(m) = !isprime(m) && vecmin(digits(m)); \\ _Michel Marcus_, Jan 23 2022
%Y Cf. A010051, A018252, A052382, A168046, A038618.
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, Jun 24 2015
|
