A119895 Numbers k such that 2^k, 3^k, 5^k, 7^k, 11^k and 13^k have even digit sum.

90, 168, 185, 229, 242, 447, 470, 503, 552, 657, 684, 758, 804, 811, 1000, 1113, 1126, 1182, 1402, 1410, 1412, 1420, 1546, 1566, 1638, 1655, 1663, 1790, 2066, 2180, 2232, 2275, 2362, 2390, 2416, 2504, 2585, 2670, 2721, 2725, 2803, 2814, 2902, 2911, 2928

Offset: 1

Author

Zak Seidov, May 26 2006

Keywords

• base
• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..895

Crossrefs

Cf. A118734, A118867, A119894, A119896, A119897.

Programs

Mathematica

Select[Range[3000],AllTrue[Total[IntegerDigits[#]]&/@(Prime[ Range[ 6]]^#), EvenQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 10 2018 *)