login
A044188
Numbers n such that string 0,1 occurs in the base 8 representation of n but not of n-1.
0
65, 129, 193, 257, 321, 385, 449, 513, 520, 577, 641, 705, 769, 833, 897, 961, 1025, 1032, 1089, 1153, 1217, 1281, 1345, 1409, 1473, 1537, 1544, 1601, 1665, 1729, 1793, 1857, 1921, 1985, 2049, 2056, 2113, 2177, 2241, 2305
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {0, 1}]>0, 1, 0], {n, 2400}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 29 2018 *)
CROSSREFS
Sequence in context: A039482 A247676 A118159 * A044569 A158071 A352982
KEYWORD
nonn,base
STATUS
approved