|
%I #36 Sep 08 2022 08:46:19
%S 1,2,5,3,7,11,5,11,17,23,7,15,23,31,39,11,23,35,47,59,71,13,27,41,55,
%T 69,83,97,17,35,53,71,89,107,125,143,19,39,59,79,99,119,139,159,179,
%U 23,47,71,95,119,143,167,191,215,239,29,59,89,119,149,179,209,239,269,299,329
%N Triangle read by rows: T(n,k) = (k + 1)*prime(n) + k for n > 0, 0 <= k <= n, and with T(0,0) = 1.
%e Triangle begins:
%e 1;
%e 2, 5;
%e 3, 7, 11;
%e 5, 11, 17, 23;
%e 7, 15, 23, 31, 39;
%e 11, 23, 35, 47, 59, 71;
%e 13, 27, 41, 55, 69, 83, 97;
%e 17, 35, 53, 71, 89, 107, 125, 143;
%e 19, 39, 59, 79, 99, 119, 139, 159, 179;
%e 23, 47, 71, 95, 119, 143, 167, 191, 215, 239;
%e ...
%t Join[{1}, t[n_,k_] := (k + 1) Prime[n] + k; Table[t[n, k], {n, 10}, {k, 0, n}]//Flatten]
%o (Magma) /* As triangle (here NthPrime(0)=1) */ [[(k+1)*NthPrime(n)+k: k in [0..n]]: n in [0.. 15]];
%Y Cf. A000040, A008578, A072055.
%K nonn,tabl
%O 0,2
%A _Vincenzo Librandi_, Sep 02 2017
%E Definition corrected by _Bruno Berselli_, Sep 06 2017
|
