|
%I #14 Feb 20 2020 07:17:14
%S 1,4,4,0,4,16,16,8,20,20,24,24,48,8,32,16,52,16,52,4,40,48,48,32,80,
%T 52,56,64,80,56,96,32,84,48,72,56,116,56,4,96,120,40,128,56,96,112,96,
%U 56,144,60,124,112,152,104,160,120,160,0,120,64,256,80,128,136
%N Expansion of (theta_3(z)*theta_3(19z) + theta_2(z)*theta_2(19z))^2.
%H Jinyuan Wang, <a href="/A028642/b028642.txt">Table of n, a(n) for n = 0..1000</a>
%o (PARI) a(n) = if( n<0, 0, polcoeff( (1 + 2 * x * Ser(qfrep( [ 2, 1; 1, 10], n, 1)))^2, n)); \\ _Jinyuan Wang_, Feb 19 2020
%Y Cf. A028643, A028644.
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Jinyuan Wang_, Feb 19 2020
|
