|
%I #11 Aug 23 2021 06:37:39
%S 35,75,116,156,197,237,278,315,359,399,440,480,521,561,602,642,675,
%T 723,764,804,845,885,926,966,1007,1044,1088,1128,1169,1209,1250,1290,
%U 1331,1371,1404,1452,1493,1533,1574,1614,1655,1695
%N Numbers k such that 3 and 8 occur juxtaposed in the base-9 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{3,8}]>0 || SequenceCount[ IntegerDigits[n,9],{8,3}]>0,1,0],{n,2000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 30 2017 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
