The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A117692 Triangle T(n,m) = A034386(n)^2/(A034386(m)*A034386(n-m)), 1<=m<=n, read by rows. 2

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 8 04:57 EDT 2023. Contains 363157 sequences. (Running on oeis4.)