OFFSET
1,2
MATHEMATICA
Select[Range[0, 133], Mod[ Plus @@ IntegerDigits[2^# ], 2] == 1 &] (* Ray Chandler, Jun 10 2006 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 22 2006
STATUS
approved