|
Search: id:A130814
|
|
| |
|
| 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; listen)
|
|
|
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 this_sequence A047609 A027975 A011980
Adjacent sequences: A130811 A130812 A130813 this_sequence A130815 A130816 A130817
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jul 16 2007
|
|
|
Search completed in 0.002 seconds
|
