|
%I #7 Apr 22 2016 05:54:40
%S 1,1,2,6,42,162,634,2726,9330,37814,186034,623934,2370354,10505738,
%T 37417658,113248562,738713250,2753640290,7522970666,46292418830,
%U 146514514914,496491671978,2915741154442,9464309679414,39098814277474,173211426442282,652232674100690
%N Alternating row sum of row 2n in A238453.
%C The alternating row sums of odd rows in A238453 are 0.
%H Tom Edgar, <a href="http://www.emis.de/journals/INTEGERS/papers/o62/o62.Abstract.html">Totienomial Coefficients</a>, INTEGERS, 14 (2014), #A62.
%F a(n) = Sum_{k=0..2n}(-1)^k*A238453(2n,k).
%o P=[euler_phi(i) for i in [0..100]]
%o Tr=[[prod(P[1:n+1])/(prod(P[1:k+1])*prod(P[1:(n-k)+1])) for k in [0..n]] for n in [0..len(P)-1]]
%o L=[sum((-1)^i*x[i] for i in [0..len(x)-1]) for x in Tr]
%o print [y for y in L if y!=0]
%Y Cf. A000010, A238453, A272079.
%K nonn
%O 0,3
%A _Tom Edgar_, Apr 21 2016
|
