%I
%S 22,103,184,198,265,346,427,508,589,670,751,832,913,927,994,1075,1156,
%T 1237,1318,1399,1480,1561,1642,1656,1723,1782,1885,1966,2047,2128,
%U 2209,2290,2371,2385,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 n1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{2,4}]>0,1,0],{n,3000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 21 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
