|
%I #11 Aug 23 2021 01:05:21
%S 63,88,144,169,225,250,306,331,387,412,468,493,549,567,630,655,711,
%T 736,792,817,873,898,954,979,1035,1060,1116,1141,1197,1222,1278,1296,
%U 1359,1384,1440,1465,1521,1546,1602,1627,1683,1708
%N Numbers k such that 0 and 7 occur juxtaposed in the base-9 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{0,7}]>0 || SequenceCount[ IntegerDigits[n,9],{7,0}]>0,1,0],{n,1800}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 27 2017 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
