|
%I #11 Aug 23 2021 01:05:49
%S 9,81,163,171,244,252,325,333,406,414,487,495,568,576,649,657,729,892,
%T 900,973,981,1054,1062,1135,1143,1216,1224,1297,1305,1378,1386,1459,
%U 1467,1539,1621,1629,1702,1710,1783,1791,1864
%N Numbers k such that 0 and 1 occur juxtaposed in the base-9 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{0,1}]>0 || SequenceCount[IntegerDigits[n,9],{1,0}]>0,1,0],{n,2000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 08 2020 *)
%Y Cf. A007095.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
