|
| |
|
|
A122820
|
|
Array read by rows in which n-th row contains n successive primes with least sum divisible by n.
|
|
3
| |
|
|
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
(list; table; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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}]] (*Chandler*)
|
|
|
CROSSREFS
| Cf. A054892 (first term of each row), A077388 (row sum), A077389 (row average).
Cf. A082592, A082596, A082638, A082653, A082661.
Sequence in context: A077276 A073684 A083776 * A151571 A193957 A114230
Adjacent sequences: A122817 A122818 A122819 * A122821 A122822 A122823
|
|
|
KEYWORD
| nonn,tabl
|
|
|
AUTHOR
| Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 27 2006
|
| |
|
|
