|
%I #5 Oct 11 2019 13:54:43
%S 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,
%T 23,29,17,19,23,29,31,37,41,43,239,241,251,257,263,269,271,277,281,13,
%U 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
%N Array read by rows in which n-th row contains n successive primes with least sum divisible by n.
%e Triangle begins:
%e 2
%e 3 5
%e 3 5 7
%e 5 7 11 13
%e 71 73 79 83 89
%e 5 7 11 13 17 19
%e 7 11 13 17 19 23 29
%e 17 19 23 29 31 37 41 43
%e 239 241 251 257 263 269 271 277 281
%e 13 17 19 23 29 31 37 41 43 47
%e 29 31 37 41 43 47 53 59 61 67 71
%e 5 7 11 13 17 19 23 29 31 37 41 43
%t 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}]]
%Y Cf. A054892 (first term of each row), A077388 (row sum), A077389 (row average).
%Y Cf. A082592, A082596, A082638, A082653, A082661.
%K nonn,tabl
%O 1,1
%A _Ray Chandler_, Sep 27 2006
|
