|
%I #7 Oct 25 2017 12:51:25
%S 34,115,196,277,306,358,439,520,601,682,763,844,925,1006,1035,1087,
%T 1168,1249,1330,1411,1492,1573,1654,1735,1764,1816,1897,1978,2059,
%U 2140,2221,2302,2383,2464,2493,2545,2626,2707,2754
%N Numbers n such that string 3,7 occurs in the base 9 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{3,7}]>0,1,0],{n,3000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 25 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
