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,2

Comments

1

Links

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

Formula

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

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

Cf. A349407, A350279, A375909, A375911.

Cf. A033493, A285098.

Sequence in context: A197970 A048892 A108849 * A025558 A298986 A103933

Adjacent sequences: A375907 A375908 A375909 * A375911 A375912 A375913

Keyword

nonn,easy

Author

Paolo Xausa, Sep 02 2024

Status

approved