|
%I #9 Dec 24 2022 11:30:27
%S 105,205,305,405,505,605,705,805,905,1005,1050,1105,1205,1305,1405,
%T 1505,1605,1705,1805,1905,2005,2050,2105,2205,2305,2405,2505,2605,
%U 2705,2805,2905,3005,3050,3105,3205,3305,3405,3505
%N Numbers n such that string 0,5 occurs in the base 10 representation of n but not of n-1.
%t Flatten[Position[Partition[Table[If[MemberQ[Partition[IntegerDigits[n],2,1],{0,5}],1,0],{n,3600}],2,1],{0,1}]]+1 (* _Harvey P. Dale_, Mar 23 2015 *)
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{0,5}]>0,1,0],{n,4000}],{0,1}][[All,2]] (* _Harvey P. Dale_, Dec 24 2022 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
