A084988 Numbers made with nonprime digits such that the sum of the digits is also not prime.
1, 4, 6, 8, 9, 10, 18, 19, 40, 44, 46, 48, 60, 64, 66, 68, 69, 80, 81, 84, 86, 88, 90, 91, 96, 99, 100, 108, 109, 114, 116, 118, 141, 144, 149, 161, 168, 169, 180, 181, 186, 189, 190, 194, 196, 198
Offset: 1
Examples
E.g. 46 is not prime and 4+6 =10 is also not prime.
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..5000
Crossrefs
Cf. A084984.
Programs
-
Mathematica
Select[Rest[FromDigits/@Tuples[{0,1,4,6,8,9},3]],!PrimeQ[ Total[ IntegerDigits[ #]]]&] (* Harvey P. Dale, Jul 20 2017 *)