|
%I #11 Aug 26 2021 03:17:43
%S 14,49,78,119,142,177,206,241,270,305,334,369,399,433,462,497,526,561,
%T 590,631,654,689,718,753,782,817,846,881,959,974,1009,1038,1073,1102,
%U 1143,1166,1201,1230,1265,1294,1329,1358,1393
%N Numbers k such that 1 and 6 occur juxtaposed in the base-8 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{1,6}]>0 || SequenceCount[IntegerDigits[n,8],{6,1}]>0,1,0],{n,1400}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 30 2021 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
