login
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.
4
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
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
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 26 2006
EXTENSIONS
More terms from Harvey P. Dale, May 10 2017
STATUS
approved