A044606 - OEIS

%I #7 Apr 09 2018 12:37:45

%S 38,102,166,230,294,311,358,422,486,550,614,678,742,806,823,870,934,

%T 998,1062,1126,1190,1254,1318,1335,1382,1446,1510,1574,1638,1702,1766,

%U 1830,1847,1894,1958,2022,2086,2150,2214,2278,2342

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

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{4,6}]>0,1,0],{n,2500}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 09 2018 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_