%I #3 Jul 20 2017 10:19:07
%S 1,4,6,8,9,10,18,19,40,44,46,48,60,64,66,68,69,80,81,84,86,88,90,91,
%T 96,99,100,108,109,114,116,118,141,144,149,161,168,169,180,181,186,
%U 189,190,194,196,198
%N Numbers made with nonprime digits such that the sum of the digits is also not prime.
%H Harvey P. Dale, <a href="/A084988/b084988.txt">Table of n, a(n) for n = 1..5000</a>
%e E.g. 46 is not prime and 4+6 =10 is also not prime.
%t Select[Rest[FromDigits/@Tuples[{0,1,4,6,8,9},3]],!PrimeQ[ Total[ IntegerDigits[ #]]]&] (* _Harvey P. Dale_, Jul 20 2017 *)
%Y Cf. A084984.
%K nonn,base
%O 1,2
%A Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jun 27 2003