A117693 Row sums of A117692.

1, 6, 42, 27, 480, 265, 7070, 3815, 1820, 1449, 107338, 56903, 4636632, 2635061, 993850, 633919, 71014372, 42899857, 8111619802, 4675943415, 1414861448, 819657397, 113827776894, 75106291091, 41292848428

Offset

1,2

Links

Table of n, a(n) for n=1..25.

Formula

a(n) = sum_{m=1..n} A117692(n,m).

Mathematica

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] c = Table[Apply[Plus, Table[bf[n, m], {m, 1, n}]], {n, 1, 25}]

Crossrefs

Cf. A034386.

Sequence in context: A249135 A250387 A306429 * A153243 A186885 A097253

Adjacent sequences: A117690 A117691 A117692 * A117694 A117695 A117696

Keyword

nonn

Author

Roger L. Bagula, Apr 12 2006

Extensions

Description simplified, offset corrected by the Assoc. Eds. of the OEIS, Jun 27 2010

Status

approved