A043158 - OEIS

%I #10 Aug 22 2021 22:37:27

%S 56,71,120,135,184,199,248,263,312,327,376,391,440,448,504,519,568,

%T 583,632,647,696,711,760,775,824,839,888,903,952,960,1016,1031,1080,

%U 1095,1144,1159,1208,1223,1272,1287,1336,1351,1400

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

%t Transpose[SequencePosition[Table[If[MemberQ[Sort/@Partition[IntegerDigits[n,8],2,1],{0,7}],1,0],{n,1500}],{0,1}]][[2]] (* The program uses the SequencePosition function from Mathematica version 10.1 *) (* _Harvey P. Dale_, Apr 12 2015 *)

%Y Cf. A007094.

%K nonn,base

%O 1,1

%A _Clark Kimberling_