Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Jan 21 2018 00:12:08
%S 36,100,164,228,295,356,420,484,548,612,676,740,807,868,932,996,1060,
%T 1124,1188,1252,1319,1380,1444,1508,1572,1636,1700,1764,1831,1892,
%U 1956,2020,2084,2148,2212,2276,2367,2404,2468,2532
%N Numbers n such that string 4,4 occurs in the base 8 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{4,4}]>0,1,0],{n,2600}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 21 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_