|
%I #4 Mar 30 2012 17:34:20
%S 1,4,2,18,18,6,6,9,6,6,150,75,75,150,30,30,75,25,75,30,30,1470,735,
%T 1225,1225,735,1470,210,210,735,245,1225,245,735,210,210,210,105,245,
%U 245,245,245,105,210,210,210,105,35,245,49,245,35,105,210,210
%N Triangle T(n,m) = A034386(n)^2/(A034386(m)*A034386(n-m)), 1<=m<=n, read by rows.
%C A034386(0) is interpreted as 1 here, where n=m.
%e The triangle starts in row n=1 as:
%e 1
%e 4, 2
%e 18, 18, 6
%e 6, 9, 6, 6
%e 150, 75, 75, 150, 30
%e 30, 75, 25, 75, 30, 30
%e 1470, 735, 1225, 1225, 735, 1470, 210
%t f[n_] := If[PrimeQ[n] == True, n, 1] cf[0] = 1; cf[n_Integer?Positive] := cf[n] = f[n]*cf[n - 1] bf[n_Integer?Positive, m_Integer?Positive] := bf[n, m] = cf[n]^2/(cf[m]*cf[n - m]) b = Table[Table[bf[n, m], {m, 1, n}], {n, 1, 10}] Flatten[b]
%Y Cf. A034386.
%K nonn,tabl
%O 1,2
%A _Roger L. Bagula_, Apr 12 2006
%E Offset corrected by the Assoc. Eds. of the OEIS, Jun 27 2010
|
