login
A044152
Numbers n such that string 2,0 occurs in the base 7 representation of n but not of n-1.
0
14, 63, 98, 112, 161, 210, 259, 308, 357, 406, 441, 455, 504, 553, 602, 651, 686, 749, 784, 798, 847, 896, 945, 994, 1043, 1092, 1127, 1141, 1190, 1239, 1288, 1337, 1386, 1435, 1470, 1484, 1533, 1582, 1631, 1680, 1729, 1778
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {2, 0}]>0, 1, 0], {n, 1800}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 23 2020 *)
CROSSREFS
Sequence in context: A125849 A003695 A022674 * A044533 A050492 A255499
KEYWORD
nonn,base
STATUS
approved