|
|
A044601
|
|
Numbers n such that string 4,1 occurs in the base 8 representation of n but not of n+1.
|
|
0
|
|
|
33, 97, 161, 225, 271, 289, 353, 417, 481, 545, 609, 673, 737, 783, 801, 865, 929, 993, 1057, 1121, 1185, 1249, 1295, 1313, 1377, 1441, 1505, 1569, 1633, 1697, 1761, 1807, 1825, 1889, 1953, 2017, 2081, 2175, 2209, 2273, 2319
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[2500], MemberQ[Partition[IntegerDigits[#, 8], 2, 1], {4, 1}] && !MemberQ[Partition[ IntegerDigits[#+1, 8], 2, 1], {4, 1}]&] (* Harvey P. Dale, Sep 08 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {4, 1}]>0, 1, 0], {n, 2500}], {1, 0}][[;; , 1]] (* Harvey P. Dale, Jan 03 2024 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|