A044580 - OEIS

%I #7 Dec 08 2023 13:09:24

%S 12,76,103,140,204,268,332,396,460,524,588,615,652,716,831,844,908,

%T 972,1036,1100,1127,1164,1228,1292,1356,1420,1484,1548,1612,1639,1676,

%U 1740,1804,1868,1932,1996,2060,2124,2151,2188,2252

%N Numbers n such that string 1,4 occurs in the base 8 representation of n but not of n+1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{1,4}]>0,1,0],{n,2500}],{1,0}][[;;,1]] (* _Harvey P. Dale_, Dec 08 2023 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_