login
A044577
Numbers n such that string 1,1 occurs in the base 8 representation of n but not of n+1.
0
9, 79, 137, 201, 265, 329, 393, 457, 521, 639, 649, 713, 777, 841, 905, 969, 1033, 1103, 1161, 1225, 1289, 1353, 1417, 1481, 1545, 1615, 1673, 1737, 1801, 1865, 1929, 1993, 2057, 2127, 2185, 2249, 2313, 2377, 2441, 2505
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {1, 1}]>0, 1, 0], {n, 3000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 26 2020 *)
CROSSREFS
Sequence in context: A240797 A279683 A123918 * A357281 A172203 A293721
KEYWORD
nonn,base
STATUS
approved