login
A044201
Numbers n such that string 1,6 occurs in the base 8 representation of n but not of n-1.
0
14, 78, 112, 142, 206, 270, 334, 398, 462, 526, 590, 624, 654, 718, 782, 846, 896, 974, 1038, 1102, 1136, 1166, 1230, 1294, 1358, 1422, 1486, 1550, 1614, 1648, 1678, 1742, 1806, 1870, 1934, 1998, 2062, 2126, 2160, 2190, 2254
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {1, 6}]>0, 1, 0], {n, 2500}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 28 2017 *)
CROSSREFS
Sequence in context: A085462 A050404 A335757 * A044582 A058895 A166842
KEYWORD
nonn,base
STATUS
approved