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

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

Links

Table of n, a(n) for n=1..71.

Example

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

Mathematica

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}]]

Crossrefs

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

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

Sequence in context: A073684 A179295 A083776 * A261324 A224887 A151571

Adjacent sequences: A122817 A122818 A122819 * A122821 A122822 A122823

Keyword

nonn,tabl

Author

Ray Chandler, Sep 27 2006

Status

approved