OFFSET
1,2
LINKS
G. C. Greubel, Rows n = 1..50 of the triangle, flattened
EXAMPLE
The triangle starts in row n=1 as:
1;
4, 2;
18, 18, 6;
6, 9, 6, 6;
150, 75, 75, 150, 30;
30, 75, 25, 75, 30, 30;
1470, 735, 1225, 1225, 735, 1470, 210;
MATHEMATICA
f[n_]:= If[PrimeQ[n], n, 1];
cf[n_]:= cf[n]= If[n==0, 1, f[n]*cf[n-1]]; (* A034386 *)
T[n_, k_]:= T[n, k]= cf[n]^2/(cf[k]*cf[n-k]);
Table[T[n, k], {n, 12}, {k, n}]//Flatten
PROG
(Magma)
A034386:= func< n | n eq 0 select 1 else LCM(PrimesInInterval(1, n)) >;
(SageMath)
flatten([[T(n, k) for k in range(1, n+1)] for n in range(1, 13)]) # G. C. Greubel, Jul 22 2023
CROSSREFS
AUTHOR
Roger L. Bagula, Apr 12 2006
EXTENSIONS
Offset corrected by the Assoc. Eds. of the OEIS, Jun 27 2010
STATUS
approved