A032953 Numbers whose base-3 representation Sum_{i=0..m} d(i)*3^(m-i) has even d(i) for all odd i.
1, 2, 3, 5, 6, 8, 9, 10, 11, 15, 16, 17, 18, 19, 20, 24, 25, 26, 27, 29, 30, 32, 33, 35, 45, 47, 48, 50, 51, 53, 54, 56, 57, 59, 60, 62, 72, 74, 75, 77, 78, 80, 81, 82, 83, 87, 88, 89, 90, 91, 92, 96, 97, 98, 99, 100, 101, 105, 106, 107, 135
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Crossrefs
Disjoint with A033054.
Programs
-
Mathematica
Select[Range[150],AllTrue[Take[IntegerDigits[#,3],{2,-1,2}],EvenQ]&] (* Harvey P. Dale, Aug 03 2021 *)
Extensions
Definition corrected by Sean A. Irvine, Nov 17 2020
Comments