|
%I #20 Feb 12 2021 21:40:13
%S 1,2,3,4,5,6,12,18,24,30,36,37,38,39,40,41,72,73,74,75,76,77,108,109,
%T 110,111,112,113,144,145,146,147,148,149,180,181,182,183,184,185,216,
%U 222,228,234,240,246,432,438,444,450,456,462
%N Numbers whose base-6 representation Sum_{i=0..m} d(i)*6^(m-i) has d(i)=0 for all odd i.
%H Harvey P. Dale, <a href="/A032941/b032941.txt">Table of n, a(n) for n = 1..1000</a>
%p f:= proc(n, j) local L, m;
%p L:= convert(n, base, 6);
%p m:= nops(L);
%p j*add(L[i+1]*6^(2*i), i=0..m-1)
%p end proc: seq(seq(seq(f(n, j), n=6^k..6^(k+1)-1), j=[1, 6]), k=0..2);# _Robert Israel_, Nov 16 2020
%t Join[{1,2,3,4,5},Select[Range[500],Union[Take[IntegerDigits[#,6],{2,-1,2}]]=={0}&]] (* _Harvey P. Dale_, Jul 06 2019 *)
%Y Cf. A007092 (numbers in base 6).
%K nonn,base
%O 1,2
%A _Clark Kimberling_
%E Definition corrected by _Robert Israel_, Nov 16 2020
|
