login
A044193
Numbers n such that string 0,6 occurs in the base 8 representation of n but not of n-1.
0
70, 134, 198, 262, 326, 390, 454, 518, 560, 582, 646, 710, 774, 838, 902, 966, 1030, 1072, 1094, 1158, 1222, 1286, 1350, 1414, 1478, 1542, 1584, 1606, 1670, 1734, 1798, 1862, 1926, 1990, 2054, 2096, 2118, 2182, 2246, 2310
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {0, 6}]>0, 1, 0], {n, 2500}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 11 2020 *)
CROSSREFS
Sequence in context: A160354 A215111 A255801 * A044574 A255794 A181465
KEYWORD
nonn,base
STATUS
approved