|
Search: id:A122820
|
|
|
| A122820 |
|
Array read by rows in which n-th row contains n successive primes with least sum divisible by n. |
|
+0
4
|
|
| 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; listen)
|
|
|
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 this_sequence A151571 A114230 A103781
Adjacent sequences: A122817 A122818 A122819 this_sequence A122821 A122822 A122823
|
|
KEYWORD
|
nonn,tabl
|
|
AUTHOR
|
Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 27 2006
|
|
|
Search completed in 0.002 seconds
|
