A122975 - OEIS

%I #8 Oct 10 2022 15:14:12

%S 1,2,3,4,5,7,10,12,13,14,16,21,22,23,30,31,32,37,39,40,41,43,48,49,50,

%T 64,66,67,68,70,91,93,94,95,97,111,112,113,118,120,121,122,124,129,

%U 130,131,145,147,148,149,151,192,193,194,199,201,202,203,205,210,211,212

%N Numbers containing no successive even ternary digits.

%H Charles R Greathouse IV, <a href="/A122975/b122975.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Ar#3-automatic">Index entries for 3-automatic sequences</a>.

%t nsetdQ[n_]:=With[{idn3=If[EvenQ[#],1,0]&/@IntegerDigits[n,3]},SequenceCount[ idn3,{1,1}]==0]; Select[Range[300],nsetdQ]  (* _Harvey P. Dale_, Oct 10 2022 *)

%o (PARI) is(n)=while(n>5, if(bitand(1<<(n%9), 325), return(0)); n\=3); 1 \\ _Charles R Greathouse IV_, Feb 15 2017

%Y Subsequence of A032974.

%Y Cf. A007089.

%K nonn,base,easy

%O 1,2

%A _Reinhard Zumkeller_, Sep 21 2006

%E Named edited by _Charles R Greathouse IV_, Feb 15 2017