login
A044158
Numbers n such that string 2,6 occurs in the base 7 representation of n but not of n-1.
0
20, 69, 118, 140, 167, 216, 265, 314, 363, 412, 461, 483, 510, 559, 608, 657, 706, 755, 804, 826, 853, 902, 951, 980, 1049, 1098, 1147, 1169, 1196, 1245, 1294, 1343, 1392, 1441, 1490, 1512, 1539, 1588, 1637, 1686, 1735, 1784
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {2, 6}]>0, 1, 0], {n, 2000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 31 2019 *)
CROSSREFS
Sequence in context: A303620 A221521 A145191 * A044539 A297597 A186735
KEYWORD
nonn,base
STATUS
approved