login
A044309
Numbers n such that string 6,4 occurs in the base 9 representation of n but not of n-1.
0
58, 139, 220, 301, 382, 463, 522, 544, 625, 706, 787, 868, 949, 1030, 1111, 1192, 1251, 1273, 1354, 1435, 1516, 1597, 1678, 1759, 1840, 1921, 1980, 2002, 2083, 2164, 2245, 2326, 2407, 2488, 2569, 2650, 2709, 2731, 2812
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {6, 4}] > 0, 1, 0], {n, 3000}], {0, 1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Dec 09 2015 *)
CROSSREFS
Sequence in context: A348569 A260132 A180571 * A044690 A118153 A225788
KEYWORD
nonn,base
STATUS
approved