|
%I #7 Jul 27 2022 16:13:38
%S 101,201,301,401,501,601,701,801,901,1001,1010,1101,1201,1301,1401,
%T 1501,1601,1701,1801,1901,2001,2010,2101,2201,2301,2401,2501,2601,
%U 2701,2801,2901,3001,3010,3101,3201,3301,3401,3501
%N Numbers n such that string 0,1 occurs in the base 10 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{0,1}]>0,1,0],{n,4000}],{0,1}][[All,2]] (* _Harvey P. Dale_, Jul 27 2022 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
