OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(n) convert(convert(2^n, base, 10), `+`)::even end proc:
select(filter, [$1..1000]); # Robert Israel, Apr 12 2021
MATHEMATICA
Select[Range[126], Mod[ Plus @@ IntegerDigits[2^# ], 2] == 0 &] (* Ray Chandler, Jun 10 2006 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 22 2006
STATUS
approved