|
%I #2 Mar 30 2012 17:34:21
%S 1,4,5,8,11,20,25,32,39,52,61,72,83,96,113,128,141,164,181,200,219,
%T 240,267,288,311,336,369,392,419,452
%N Row sums of A130795.
%F a(n) =Sum[A130795[n,m], {i, 0, n - 1}]
%t 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
%Y Cf. A130795.
%K nonn
%O 1,2
%A _Roger L. Bagula_, Jul 16 2007
|
