login
A044329
Numbers n such that string 8,6 occurs in the base 9 representation of n but not of n-1.
0
78, 159, 240, 321, 402, 483, 564, 645, 702, 726, 807, 888, 969, 1050, 1131, 1212, 1293, 1374, 1431, 1455, 1536, 1617, 1698, 1779, 1860, 1941, 2022, 2103, 2160, 2184, 2265, 2346, 2427, 2508, 2589, 2670, 2751, 2832, 2889
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {8, 6}]>0, 1, 0], {n, 3000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 08 2019 *)
CROSSREFS
Sequence in context: A260364 A185077 A042945 * A044710 A046428 A119146
KEYWORD
nonn,base
STATUS
approved