|
%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_
|
