|
%I
%S 24,67,88,131,152,199,216,259,280,323,344,387,408,451,472,515,543,579,
%T 600,643,664,711,728,771,792,835,856,899,920,963,984,1027,1055,1091,
%U 1112,1155,1176,1223,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 Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{0,3}]>0 || SequenceCount[IntegerDigits[n,8],{3,0}]>0,1,0],{n,1400}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Jul 23 2016 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
