OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
15 is composite and 1 + 5 = 6 (an even number), so 15 is a term;
20 is composite and 2 + 0 = 2 (an even number), so 20 is a term.
MAPLE
sd := proc (n) options operator, arrow: add(convert(n, base, 10)[j], j = 1 .. nops(convert(n, base, 10))) end proc: a := proc (n) if isprime(n) = false and `mod`(sd(n), 2) = 0 then n else end if end proc: seq(a(n), n = 2 .. 180); # Emeric Deutsch, Jan 17 2009
MATHEMATICA
Select[Range[200], CompositeQ[#]&&EvenQ[Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Aug 25 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Juri-Stepan Gerasimov, Jan 08 2009
EXTENSIONS
Replaced 45 by 46 - R. J. Mathar, Jan 12 2009
More terms from Emeric Deutsch, Jan 17 2009
STATUS
approved