Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Sep 13 2024 08:11:46
%S 0,1,7,5,40,22,47,18,93,100,45,132,180,110,275,84,304,210,134,580,131,
%T 78,527,240,1200,388,927,652,160,590,373,328,587,644,1355,444,1404,
%U 286,1075,1140,821,278,1847,542,2625,1102,767,504,2681,2500,1815,2204,2860
%N Row sums of A376081.
%C See A376081 for more information.
%H Paolo Xausa, <a href="/A376083/b376083.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = Sum_{k = 0..A376082(n)-1} A376081(n,k).
%t A376081row[n_] := If[n < 3, {n - 1}, Module[{k = 1}, NestWhileList[Mod[2 * Fibonacci[++k] - 1, n] &, 1, {#, #2} != {1, n-1} &, {3, 2}]]];
%t Array[Total[A376081row[#]] &, 100]
%Y Cf. A214300, A376081.
%K nonn
%O 1,3
%A _Paolo Xausa_, Sep 10 2024