%I #7 Apr 14 2019 13:51:44
%S 22,103,184,206,265,346,427,508,589,670,751,832,913,935,994,1075,1156,
%T 1237,1318,1399,1480,1561,1642,1664,1723,1862,1885,1966,2047,2128,
%U 2209,2290,2371,2393,2452,2533,2614,2695,2776,2857
%N Numbers n such that string 2,4 occurs in the base 9 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{2,4}]>0,1,0],{n,3000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 14 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_