%I #7 Jun 22 2016 18:11:56
%S 79,160,241,322,403,484,565,646,711,727,808,889,970,1051,1132,1213,
%T 1294,1375,1440,1456,1537,1618,1699,1780,1861,1942,2023,2104,2169,
%U 2185,2266,2347,2428,2509,2590,2671,2752,2833,2898
%N Numbers n such that string 8,7 occurs in the base 9 representation of n but not of n-1.
%H Harvey P. Dale, <a href="/A044330/b044330.txt">Table of n, a(n) for n = 1..1000</a>
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{8,7}]>0,1,0],{n,3000}],{0,1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Jun 22 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|