%I #10 Oct 05 2019 08:45:03
%S 2,12,14,16,20,30,32,34,38,50,52,56,58,70,74,76,92,94,98,102,104,106,
%T 110,120,122,124,128,140,142,146,148,160,164,166,182,184,188,200,210,
%U 212,214,218,230,232
%N Even numbers whose decimal digits sum to a prime.
%H Harvey P. Dale, <a href="/A186647/b186647.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[2*Range[0,200],PrimeQ[Total[IntegerDigits[#]]]&] (* _Harvey P. Dale_, Oct 05 2019 *)
%Y Cf. A119449.
%K nonn,easy,base
%O 1,1
%A _Giovanni Teofilatto_, Feb 25 2011