|
%I #7 May 24 2016 18:08:55
%S 95,195,295,395,495,595,695,795,895,959,995,1095,1195,1295,1395,1495,
%T 1595,1695,1795,1895,1959,1995,2095,2195,2295,2395,2495,2595,2695,
%U 2795,2895,2959,2995,3095,3195,3295,3395,3495,3595
%N Numbers n such that string 9,5 occurs in the base 10 representation of n but not of n+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{9,5}]>0,1,0],{n,4000}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, May 24 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
