|
%I #7 Mar 13 2016 13:27:04
%S 67,148,229,310,391,472,553,611,634,715,796,877,958,1039,1120,1201,
%T 1282,1340,1363,1444,1525,1606,1687,1768,1849,1930,2011,2069,2092,
%U 2173,2254,2335,2416,2497,2578,2659,2740,2798,2821
%N Numbers n such that string 7,4 occurs in the base 9 representation of n but not of n+1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{7,4}]>0,1,0],{n,3000}],{1,0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 13 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
