|
%I #7 Dec 08 2016 10:45:34
%S 35,99,163,227,280,291,355,419,483,547,611,675,739,792,803,867,931,
%T 995,1059,1123,1187,1251,1304,1315,1379,1443,1507,1571,1635,1699,1763,
%U 1816,1827,1891,1955,2019,2083,2147,2211,2240,2328
%N Numbers n such that string 4,3 occurs in the base 8 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{4,3}]>0,1,0],{n,3000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 08 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
