A032953 - OEIS

%I #16 Aug 03 2021 15:34:16

%S 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,

%T 47,48,50,51,53,54,56,57,59,60,62,72,74,75,77,78,80,81,82,83,87,88,89,

%U 90,91,92,96,97,98,99,100,101,105,106,107,135

%N Numbers whose base-3 representation Sum_{i=0..m} d(i)*3^(m-i) has even d(i) for all odd i.

%C The i's are indexed at zero. - _Harvey P. Dale_, Aug 03 2021

%H Harvey P. Dale, <a href="/A032953/b032953.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[150],AllTrue[Take[IntegerDigits[#,3],{2,-1,2}],EvenQ]&] (* _Harvey P. Dale_, Aug 03 2021 *)

%K nonn,base

%O 1,2

%A _Clark Kimberling_

%E Definition corrected by _Sean A. Irvine_, Nov 17 2020