%I #11 Aug 23 2021 01:06:20
%S 37,44,101,108,165,172,229,236,293,296,352,364,421,428,485,492,549,
%T 556,613,620,677,684,741,748,805,808,864,876,933,940,997,1004,1061,
%U 1068,1125,1132,1189,1196,1253,1260,1317,1320,1376
%N Numbers k such that 4 and 5 occur juxtaposed in the base-8 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{4,5}]>0 || SequenceCount[ IntegerDigits[n,8],{5,4}]>0,1,0],{n,1500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 03 2019 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|