login
A044600
Numbers n such that string 4,0 occurs in the base 8 representation of n but not of n+1.
1
32, 96, 160, 224, 263, 288, 352, 416, 480, 544, 608, 672, 736, 775, 800, 864, 928, 992, 1056, 1120, 1184, 1248, 1287, 1312, 1376, 1440, 1504, 1568, 1632, 1696, 1760, 1799, 1824, 1888, 1952, 2016, 2111, 2144, 2208, 2272, 2311
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {4, 0}]>0, 1, 0], {n, 2500}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 24 2018 *)
CROSSREFS
Sequence in context: A050429 A362841 A044219 * A189884 A175165 A281237
KEYWORD
nonn,base
STATUS
approved