A044679 - OEIS

%I #7 May 05 2019 12:16:19

%S 47,128,209,290,371,431,452,533,614,695,776,857,938,1019,1100,1160,

%T 1181,1262,1343,1424,1505,1586,1667,1748,1829,1889,1910,1991,2072,

%U 2153,2234,2315,2396,2477,2558,2618,2639,2720,2801

%N Numbers n such that string 5,2 occurs in the base 9 representation of n but not of n+1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{5,2}]>0,1,0],{n,3000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 05 2019 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_