A044087 - OEIS

%I #7 Apr 29 2017 11:38:06

%S 10,35,50,60,85,110,135,160,175,185,210,235,250,285,300,310,335,360,

%T 385,410,425,435,460,485,510,535,550,560,585,610,635,660,675,685,710,

%U 735,760,785,800,810,835,860,875,910,925,935,960

%N Numbers n such that string 2,0 occurs in the base 5 representation of n but not of n-1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,5],{2,0}]>0,1,0],{n,1000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 29 2017 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_