login
A044199
Numbers n such that string 1,4 occurs in the base 8 representation of n but not of n-1.
0
12, 76, 96, 140, 204, 268, 332, 396, 460, 524, 588, 608, 652, 716, 768, 844, 908, 972, 1036, 1100, 1120, 1164, 1228, 1292, 1356, 1420, 1484, 1548, 1612, 1632, 1676, 1740, 1804, 1868, 1932, 1996, 2060, 2124, 2144, 2188, 2252
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {1, 4}]>0, 1, 0], {n, 2300}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 17 2020 *)
CROSSREFS
Sequence in context: A006235 A009642 A051104 * A044580 A075279 A009405
KEYWORD
nonn,base
STATUS
approved