OFFSET
1,2
COMMENTS
1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
FarkasStep[x_] := Which[Divisible[x, 3], x/3, Mod[x, 4] == 3, (3*x + 1)/2, True, (x + 1)/2];
Array[Total[FixedPointList[FarkasStep, 2*# - 1]] - 1 &, 100]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Paolo Xausa, Sep 02 2024
STATUS
approved