A082638 -id:A082638 - cp's OEIS frontend

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

Amarnath Murthy, Nov 06 2002

nonn

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

Cf. A054892, A077389, A082638, A122820.

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 *)

More terms from Sascha Kurz, Jan 30 2003

Name corrected by Sean A. Irvine, May 18 2025

A122820 Array read by rows in which n-th row contains n successive primes with least sum divisible by n.

Original entry on oeis.org

2, 3, 5, 3, 5, 7, 5, 7, 11, 13, 71, 73, 79, 83, 89, 5, 7, 11, 13, 17, 19, 7, 11, 13, 17, 19, 23, 29, 17, 19, 23, 29, 31, 37, 41, 43, 239, 241, 251, 257, 263, 269, 271, 277, 281, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 5, 7, 11, 13, 17

Offset: 1

Ray Chandler, Sep 27 2006

			Triangle begins:
2
3 5
3 5 7
5 7 11 13
71 73 79 83 89
5 7 11 13 17 19
7 11 13 17 19 23 29
17 19 23 29 31 37 41 43
239 241 251 257 263 269 271 277 281
13 17 19 23 29 31 37 41 43 47
29 31 37 41 43 47 53 59 61 67 71
5 7 11 13 17 19 23 29 31 37 41 43

Cf. A054892 (first term of each row), A077388 (row sum), A077389 (row average).

Cf. A082592, A082596, A082638, A082653, A082661.

f[n_] := Block[{k = 1, t},While[t = Table[Prime[i], {i, k, k + n - 1}]; Mod[Plus @@ t, n] > 0, k++ ];t];Flatten[Table[f[n], {n, 12}]]

cp's OEIS Frontend

A077388 Row sums of the triangle in A122820.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Extensions