login
A044175
Numbers n such that string 5,2 occurs in the base 7 representation of n but not of n-1.
0
37, 86, 135, 184, 233, 259, 282, 331, 380, 429, 478, 527, 576, 602, 625, 674, 723, 772, 821, 870, 919, 945, 968, 1017, 1066, 1115, 1164, 1213, 1262, 1288, 1311, 1360, 1409, 1458, 1507, 1556, 1605, 1631, 1654, 1703, 1752, 1801
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {5, 2}]>0, 1, 0], {n, 2000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 17 2019 *)
CROSSREFS
Sequence in context: A172193 A141918 A063325 * A044556 A350003 A330362
KEYWORD
nonn,base
STATUS
approved