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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jul 16 2007
STATUS
approved