A077388 Row sums of the triangle in A122820.

2, 8, 15, 36, 395, 72, 119, 240, 2349, 300, 539, 276, 923, 714, 435, 496, 629, 702, 2375, 1120, 1995, 1144, 874, 3192, 3925, 2938, 9531, 1960, 10063, 2670, 3441, 4448, 5907, 6358, 9835, 4464, 5069, 3610, 13533, 4000, 6273, 4410, 21113, 12012, 8325

Offset: 1

Author

Amarnath Murthy, Nov 06 2002

Keywords

• nonn

Comments

19318176 = A077388(1296) = A077388(2088). Are there any other pairs?. - Naohiro Nomoto, May 17 2003

Crossrefs

Cf. A054892, A077389, A082638, A122820.

Programs

Mathematica

f[n_] := Block[{k = 1, t},While[t = Table[Prime[i], {i, k, k + n - 1}]; Mod[Plus @@ t, n] > 0, k++ ];t];Total /@ Table[f[n], {n, 45}] (* Ray Chandler, Oct 09 2006 *)

Extensions

More terms from Sascha Kurz, Jan 30 2003

Name corrected by Sean A. Irvine, May 18 2025