|
| |
| |
|
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
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: A117573 A144062 A066233 * A183181 A047609 A188095
Adjacent sequences: A130811 A130812 A130813 * A130815 A130816 A130817
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 16 2007
|
| |
|
|
