|
%I #7 Jan 29 2020 20:00:32
%S 26,90,154,208,218,282,346,410,474,538,602,666,720,730,794,858,922,
%T 986,1050,1114,1178,1232,1242,1306,1370,1434,1498,1562,1626,1664,1744,
%U 1754,1818,1882,1946,2010,2074,2138,2202,2256,2266
%N Numbers n such that string 3,2 occurs in the base 8 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{3,2}]>0,1,0],{n,2300}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 29 2020 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
