login
Numbers k such that 2^k, 3^k, 5^k, 7^k, 11^k, 13^k, 17^k and 19^k have even digit sum.
4

%I #12 Nov 05 2023 09:01:43

%S 552,657,811,1412,1655,2390,2504,2721,2803,2902,3002,3060,3135,3393,

%T 3660,4414,4500,4547,4750,4787,4824,5036,5539,5906,6782,7728,8650,

%U 9263,9873,9953,10367,10643,10684,10723,11369,11647,11867,11954

%N Numbers k such that 2^k, 3^k, 5^k, 7^k, 11^k, 13^k, 17^k and 19^k have even digit sum.

%H Harvey P. Dale, <a href="/A119897/b119897.txt">Table of n, a(n) for n = 1..1600</a>

%t edsQ[n_]:=AllTrue[Prime[Range[8]]^n,EvenQ[Total[IntegerDigits[#]]]&]; Select[ Range[12000],edsQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, May 10 2017 *)

%Y Cf. A054683, A118734, A118867, A119894, A119895, A119896.

%K base,nonn

%O 1,1

%A _Zak Seidov_, May 26 2006

%E More terms from _Harvey P. Dale_, May 10 2017