A375268 Row sums of A375266.

1, 3, 4, 7, 36, 9, 288, 15, 13, 46, 259, 19, 119, 302, 51, 31, 214, 27, 519, 66, 309, 281, 633, 39, 658, 145, 40, 330, 442, 76, 101104, 63, 292, 248, 540, 55, 535, 557, 158, 106, 101331, 344, 1338, 325, 96, 679, 100979, 79, 806, 708, 265, 197, 399, 81, 102316, 386

Offset: 1

Author

Paolo Xausa, Aug 09 2024

Keywords

• nonn
• easy

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000
• Index entries for sequences related to 3x+1 (or Collatz) problem.

Crossrefs

Cf. A375265, A375266, A375267, A375280.

Cf. A033493, A285098.

Programs

Mathematica

A375265[n_] := Which[Divisible[n, 3], n/3, Divisible[n, 2], n/2, True, 3*n + 1];
Array[Total[NestWhileList[A375265, #, # > 1 &]] &, 100]

Formula

a(n) = Sum_{k = 1..A375267(n) + 1} A375266(n,k).