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