|
%I #7 Sep 28 2023 12:26:44
%S 82,182,282,382,482,582,682,782,820,882,982,1082,1182,1282,1382,1482,
%T 1582,1682,1782,1820,1882,1982,2082,2182,2282,2382,2482,2582,2682,
%U 2782,2820,2882,2982,3082,3182,3282,3382,3482,3582
%N Numbers n such that string 8,2 occurs in the base 10 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{8,2}]>0,1,0],{n,4000}],{0,1}][[;;,2]] (* _Harvey P. Dale_, Sep 28 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
