A130814 Row sums of A130795.

1, 4, 5, 8, 11, 20, 25, 32, 39, 52, 61, 72, 83, 96, 113, 128, 141, 164, 181, 200, 219, 240, 267, 288, 311, 336, 369, 392, 419, 452

Offset

1,2

Links

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

Formula

a(n) =Sum[A130795[n,m], {i, 0, n - 1}]

Mathematica

a[t_, p_, i_, n_] = Cos[t + 2*i*Pi/n]*Cos[p + 2*i*Pi/n]; Table[Sum[Round[n*a[t, p, i, n]], {i, 0, n - 1}], {n, 1, 30}] /. t -> 0 /. p -> 0

Crossrefs

Cf. A130795.

Sequence in context: A249669 A144062 A066233 * A183181 A310575 A047609

Adjacent sequences: A130811 A130812 A130813 * A130815 A130816 A130817

Keyword

nonn

Author

Roger L. Bagula, Jul 16 2007

Status

approved