login
Numbers made with nonprime digits such that the sum of the digits is also not prime.
1

%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