|
%I #7 Oct 28 2017 09:51:14
%S 14,78,112,142,206,270,334,398,462,526,590,624,654,718,782,846,896,
%T 974,1038,1102,1136,1166,1230,1294,1358,1422,1486,1550,1614,1648,1678,
%U 1742,1806,1870,1934,1998,2062,2126,2160,2190,2254
%N Numbers n such that string 1,6 occurs in the base 8 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{1,6}]>0,1,0],{n,2500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 28 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
