%I #10 Aug 22 2021 22:37:00
%S 24,67,88,131,152,192,216,259,280,323,344,387,408,451,472,515,536,579,
%T 600,643,664,704,728,771,792,835,856,899,920,963,984,1027,1048,1091,
%U 1112,1155,1176,1216,1240,1283,1304,1347,1368
%N Numbers k such that 0 and 3 occur juxtaposed in the base-8 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{0,3}]>0 || SequenceCount[IntegerDigits[n,8],{3,0}]>0,1,0],{n,1400}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 24 2017 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|