A043896 - OEIS

%I #13 Aug 25 2021 04:54:16

%S 6,42,73,78,109,114,145,150,181,186,258,289,294,325,330,361,366,397,

%T 402,433,443,474,505,510,541,546,577,582,613,618,649,659,690,721,726,

%U 757,762,793,798,829,834,865,875,906,937,942,973

%N Numbers k such that 0 and 1 occur juxtaposed in the base-6 representation of k but not of k+1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{0,1}]>0 || SequenceCount[IntegerDigits[n,6],{1,0}]>0,1,0],{n,1000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 24 2018 *)

%Y Cf. A007092.

%K nonn,base

%O 1,1

%A _Clark Kimberling_