|
%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
|
