A044707 - OEIS

%I #7 Feb 06 2019 15:51:45

%S 75,156,237,318,399,480,561,642,683,723,804,885,966,1047,1128,1209,

%T 1290,1371,1412,1452,1533,1614,1695,1776,1857,1938,2019,2100,2141,

%U 2181,2262,2343,2424,2505,2586,2667,2748,2829,2870

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

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

%K nonn,base

%O 1,1

%A _Clark Kimberling_