A119897 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.

552, 657, 811, 1412, 1655, 2390, 2504, 2721, 2803, 2902, 3002, 3060, 3135, 3393, 3660, 4414, 4500, 4547, 4750, 4787, 4824, 5036, 5539, 5906, 6782, 7728, 8650, 9263, 9873, 9953, 10367, 10643, 10684, 10723, 11369, 11647, 11867, 11954

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1600

Mathematica

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 *)

Crossrefs

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

Sequence in context: A204870 A263947 A203629 * A014360 A158636 A251161

Adjacent sequences: A119894 A119895 A119896 * A119898 A119899 A119900

Keyword

base,nonn

Author

Zak Seidov, May 26 2006

Extensions

More terms from Harvey P. Dale, May 10 2017

Status

approved