Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A044221
Numbers n such that string 4,2 occurs in the base 8 representation of n but not of n-1.
0
34, 98, 162, 226, 272, 290, 354, 418, 482, 546, 610, 674, 738, 784, 802, 866, 930, 994, 1058, 1122, 1186, 1250, 1296, 1314, 1378, 1442, 1506, 1570, 1634, 1698, 1762, 1808, 1826, 1890, 1954, 2018, 2082, 2146, 2176, 2274, 2320
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {4, 2}]>0, 1, 0], {n, 2500}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 26 2019 *)
CROSSREFS
Sequence in context: A247218 A233031 A233028 * A044602 A159904 A282854
KEYWORD
nonn,base
STATUS
approved