A043932 - OEIS

%I #13 Dec 28 2021 17:52:10

%S 8,72,129,136,193,200,257,264,321,328,385,392,449,456,584,641,648,705,

%T 712,769,776,833,840,897,904,961,968,1025,1039,1096,1153,1160,1217,

%U 1224,1281,1288,1345,1352,1409,1416,1473,1480,1537

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

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{0,1}]>0 || SequenceCount[IntegerDigits[n,8],{1,0}]>0,1,0],{n,1600}],{1,0}][[All,1]] (* _Harvey P. Dale_, Dec 28 2021 *)

%o (Python)

%o def ok(n):

%o     on, onm1 = oct(n)[2:], oct(n+1)[2:]

%o     return ("01" in on or "10" in on) and not ("01" in onm1 or "10" in onm1)

%o print(list(filter(ok, range(1, 1538)))) # _Michael S. Branicky_, Aug 25 2021

%Y Cf. A007094.

%K nonn,base

%O 1,1

%A _Clark Kimberling_