A118731 Numbers k such that 2^k has odd digit sum.

0, 4, 5, 7, 8, 10, 12, 16, 18, 19, 20, 22, 23, 24, 25, 27, 28, 29, 30, 31, 34, 35, 38, 39, 40, 48, 49, 52, 53, 56, 59, 62, 63, 66, 68, 69, 72, 75, 81, 87, 88, 89, 92, 93, 94, 96, 97, 99, 100, 101, 104, 105, 108, 109, 110, 111, 114, 118, 119, 121, 125, 127, 131, 132, 133

Offset: 1

Author

Zak Seidov, May 22 2006

Keywords

• base
• nonn

Crossrefs

Cf. A118732, A118735, A076203.

Programs

Mathematica

Select[Range[0, 133], Mod[ Plus @@ IntegerDigits[2^# ], 2] == 1 &] (* Ray Chandler, Jun 10 2006 *)