|
%I #11 Feb 05 2023 18:38:13
%S 12,28,93,116,174,190,260,271,336,352,417,433,498,514,579,595,660,676,
%T 741,757,822,845,903,919,1052,1065,1081,1146,1162,1227,1243,1308,1324,
%U 1389,1405,1470,1486,1551,1574,1632,1648,1718
%N Numbers k such that 1 and 3 occur juxtaposed in the base-9 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{1,3}]>0 || SequenceCount[ IntegerDigits[n,9],{3,1}]>0,1,0],{n,1800}],{1,0}][[All,1]] (* _Harvey P. Dale_, Feb 05 2023 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
