|
%I #7 Dec 16 2019 20:06:12
%S 10,74,80,138,202,266,330,394,458,522,586,592,640,714,778,842,906,970,
%T 1034,1098,1104,1162,1226,1290,1354,1418,1482,1546,1610,1616,1674,
%U 1738,1802,1866,1930,1994,2058,2122,2128,2186,2250
%N Numbers n such that string 1,2 occurs in the base 8 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{1,2}]>0,1,0],{n,2500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 16 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
