OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 206], And @@ ((Mod[ Plus @@ IntegerDigits[ # ], 2] == 1 &) /@ {2^#, 3^#}) &] (* Ray Chandler, Jun 10 2006 *)
odsQ[n_]:=AllTrue[Total[IntegerDigits[#]]&/@{2^n, 3^n}, OddQ]; Select[ Range[ 0, 250], odsQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 05 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 22 2006
EXTENSIONS
Extended by Ray Chandler, Jun 10 2006
STATUS
approved