OFFSET
1,1
MATHEMATICA
Select[Range[140], Mod[ Plus @@ IntegerDigits[3^# ], 2] == 0 &] (* Ray Chandler, Jun 10 2006 *)
Select[Range[150], EvenQ[Total[IntegerDigits[3^#]]]&] (* Harvey P. Dale, Mar 12 2013 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 22 2006
STATUS
approved