A153271 Triangle T(n, k) = Product_{j=0..k} (j*n + prime(m)), with T(n, 0) = prime(m) and m = 3, read by rows.
5, 5, 30, 5, 35, 315, 5, 40, 440, 6160, 5, 45, 585, 9945, 208845, 5, 50, 750, 15000, 375000, 11250000, 5, 55, 935, 21505, 623645, 21827575, 894930575, 5, 60, 1140, 29640, 978120, 39124800, 1838865600, 99298742400, 5, 65, 1365, 39585, 1464645, 65909025, 3493178325, 213083877825, 14702787569925
Offset: 0
Examples
Triangle begins as: 5; 5, 30; 5, 35, 315; 5, 40, 440, 6160; 5, 45, 585, 9945, 208845; 5, 50, 750, 15000, 375000, 11250000; 5, 55, 935, 21505, 623645, 21827575, 894930575;
Links
- G. C. Greubel, Rows n = 0..100 of triangle, flattened
Crossrefs
Programs
-
Magma
m:=3; function T(n,k) if k eq 0 then return NthPrime(m); else return (&*[j*n + NthPrime(m): j in [0..k]]); end if; return T; end function; [T(n,k): k in [0..n], n in [0..10]]; // G. C. Greubel, Dec 03 2019
-
Maple
m:=3; seq(seq(`if`(k=0, ithprime(m), mul(j*n + ithprime(m), j=0..k)), k=0..n), n=0..10); # G. C. Greubel, Dec 03 2019
-
Mathematica
T[n_, k_, m_]:= If[k==0, Prime[m], Product[j*n + Prime[m], {j,0,k}]]; Table[T[n,k,3], {n,0,10}, {k,0,n}]//Flatten
-
PARI
T(n,k) = my(m=3); if(k==0, prime(m), prod(j=0,k, j*n + prime(m)) ); \\ G. C. Greubel, Dec 03 2019
-
Sage
def T(n, k): m=3 if (k==0): return nth_prime(m) else: return product(j*n + nth_prime(m) for j in (0..k)) [[T(n, k) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Dec 03 2019
Formula
T(n, k) = Product_{j=0..k} (j*n + prime(m)), with T(n, 0) = prime(m) and m = 3.
Extensions
Edited by G. C. Greubel, Dec 03 2019
Comments