login
A044569
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, 527, 577, 641, 705, 769, 833, 897, 961, 1025, 1039, 1089, 1153, 1217, 1281, 1345, 1409, 1473, 1537, 1551, 1601, 1665, 1729, 1793, 1857, 1921, 1985, 2049, 2063, 2113, 2177, 2241, 2305
OFFSET
1,1
MATHEMATICA
ok018Q[n_]:=MemberQ[Partition[IntegerDigits[n, 8], 2, 1], {0, 1}] && !MemberQ[Partition[IntegerDigits[n+1, 8], 2, 1], {0, 1}]; Select[Range[2500], ok018Q] (* Harvey P. Dale, Feb 04 2011 *)
CROSSREFS
Sequence in context: A247676 A118159 A044188 * A158071 A352982 A355543
KEYWORD
nonn,base
STATUS
approved