A375910 Row sums of A350279.

1, 4, 9, 48, 13, 41, 61, 24, 30, 72, 69, 151, 86, 40, 53, 538, 74, 128, 109, 100, 110, 182, 69, 507, 135, 81, 93, 395, 129, 217, 599, 132, 139, 249, 220, 460, 182, 161, 177, 850, 121, 340, 267, 140, 158, 448, 631, 1625, 232, 173, 182, 708, 233, 389, 504, 220, 242, 428

Offset: 1

Author

Paolo Xausa, Sep 02 2024

Keywords

• nonn
• easy

Comments

1

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A349407, A350279, A375909, A375911.

Cf. A033493, A285098.

Programs

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]

Formula

a(n) = Sum_{k = 1..A375909(n) + 1} A350279(n,k).