cp's OEIS Frontend

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

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