login
A044196
Numbers n such that string 1,1 occurs in the base 8 representation of n but not of n-1.
0
9, 72, 137, 201, 265, 329, 393, 457, 521, 576, 649, 713, 777, 841, 905, 969, 1033, 1096, 1161, 1225, 1289, 1353, 1417, 1481, 1545, 1608, 1673, 1737, 1801, 1865, 1929, 1993, 2057, 2120, 2185, 2249, 2313, 2377, 2441, 2505
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {1, 1}]>0, 1, 0], {n, 3000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 05 2020 *)
CROSSREFS
Sequence in context: A158193 A123987 A003365 * A064201 A244728 A069978
KEYWORD
nonn,base
STATUS
approved