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