A044718 - OEIS

%I #7 Aug 22 2015 08:46:53

%S 105,205,305,405,505,605,705,805,905,1005,1059,1105,1205,1305,1405,

%T 1505,1605,1705,1805,1905,2005,2059,2105,2205,2305,2405,2505,2605,

%U 2705,2805,2905,3005,3059,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 Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{0,5}]>0,1,0],{n,4000}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 22 2015 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_