[go: up one dir, main page]

login
A044304
Numbers n such that string 5,8 occurs in the base 9 representation of n but not of n-1.
0
53, 134, 215, 296, 377, 458, 477, 539, 620, 701, 782, 863, 944, 1025, 1106, 1187, 1206, 1268, 1349, 1430, 1511, 1592, 1673, 1754, 1835, 1916, 1935, 1997, 2078, 2159, 2240, 2321, 2402, 2483, 2564, 2645, 2664, 2726, 2807
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {5, 8}]>0, 1, 0], {n, 3000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 17 2019 *)
CROSSREFS
Sequence in context: A246933 A142167 A323590 * A044685 A239721 A142259
KEYWORD
nonn,base
STATUS
approved