A118732 -id:A118732 - cp's OEIS frontend

A118735 Numbers k such that 2^k and 3^k have odd digit sum.

0, 4, 5, 10, 16, 18, 20, 22, 25, 27, 30, 31, 34, 35, 39, 48, 52, 53, 59, 62, 63, 66, 68, 69, 81, 87, 89, 92, 99, 100, 101, 105, 108, 114, 118, 119, 121, 127, 131, 133, 141, 145, 146, 150, 153, 158, 159, 160, 165, 167, 169, 175, 186, 188, 191, 196, 197, 201, 202, 203

Offset: 1

Zak Seidov, May 22 2006

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. Intersection of A118731 and A118732.

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 *)

Extended by Ray Chandler, Jun 10 2006

A118731 Numbers k such that 2^k has odd digit sum.

Original entry on oeis.org

0, 4, 5, 7, 8, 10, 12, 16, 18, 19, 20, 22, 23, 24, 25, 27, 28, 29, 30, 31, 34, 35, 38, 39, 40, 48, 49, 52, 53, 56, 59, 62, 63, 66, 68, 69, 72, 75, 81, 87, 88, 89, 92, 93, 94, 96, 97, 99, 100, 101, 104, 105, 108, 109, 110, 111, 114, 118, 119, 121, 125, 127, 131, 132, 133

Offset: 1

Zak Seidov, May 22 2006

Cf. A118732, A118735, A076203.

Select[Range[0, 133], Mod[ Plus @@ IntegerDigits[2^# ], 2] == 1 &] (* Ray Chandler, Jun 10 2006 *)

cp's OEIS Frontend

A118735 Numbers k such that 2^k and 3^k have odd digit sum.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica