login
A044599
Numbers n such that string 3,7 occurs in the base 8 representation of n but not of n+1.
0
31, 95, 159, 223, 255, 287, 351, 415, 479, 543, 607, 671, 735, 767, 799, 863, 927, 991, 1055, 1119, 1183, 1247, 1279, 1311, 1375, 1439, 1503, 1567, 1631, 1695, 1759, 1791, 1823, 1887, 1951, 2047, 2079, 2143, 2207, 2271, 2303
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {3, 7}]>0, 1, 0], {n, 2500}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 10 2017 *)
CROSSREFS
Sequence in context: A042896 A042898 A044218 * A143032 A159014 A256323
KEYWORD
nonn,base
STATUS
approved