The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A337951 a(n) = 4^(n*(n-1)/2) + 4^(n*(n+1)/2) for n > 0, with a(0) = 1. 5
 1, 5, 68, 4160, 1052672, 1074790400, 4399120252928, 72061992084439040, 4722438540463683141632, 1237944761651863144544337920, 1298075452573746192512898981429248, 5444519168809230049120900851532373688320, 91343857777699303122745717458761407636787167232 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS Harvey P. Dale, Table of n, a(n) for n = 0..57 FORMULA G.f.: Sum_{n=-oo..+oo} 2^n * (2*x)^(n^2) = Sum_{n>=0} a(n) * x^(n^2). G.f.: Product_{n>=1} (1 - 4^n*x^(2*n)) * (1 + 4^n*x^(2*n-1)) * (1 + 4^(n-1)*x^(2*n-1)) = Sum_{n>=0} a(n) * x^(n^2), by the Jacobi triple product identity. a(2*n+1) = 0 (mod 5), a(4*n+2) = 3 (mod 5), a(4*n+4) = 2 (mod 5), for n >= 0 (conjecture). EXAMPLE G.f.: A(x) = 1 + 5*x + 68*x^4 + 4160*x^9 + 1052672*x^16 + 1074790400*x^25 + 4399120252928*x^36 + 72061992084439040*x^49 + 4722438540463683141632*x^64 + 1237944761651863144544337920*x^81 + ... + a(n)*x^(n^2) + ... which can be generated by the Jacobi Triple Product: A(x) = (1 - 4*x^2)*(1 + 4*x)*(1 + x) * (1 - 4^2*x^4)*(1 + 4^2*x^3)*(1 + 4*x^3) * (1 - 4^3*x^6)*(1 + 4^3*x^5)*(1 + 4^2*x^5) * (1 - 4^4*x^8)*(1 + 4^4*x^7)*(1 + 4^3*x^7) * ... * (1 - 4^n*x^(2*n))*(1 + 4^n*x^(2*n-1))*(1 + 4^(n-1)*x^(2*n-1)) * ... MATHEMATICA Join[{1}, Total[4^#]&/@Partition[Accumulate[Range[0, 15]], 2, 1]] (* Harvey P. Dale, Oct 12 2021 *) PROG (PARI) {a(n) = if(n==0, 1, 2^(n*(n-1)) + 2^(n*(n+1)))} for(n=0, 15, print1(a(n), ", ")) (PARI) /* As Coefficients in a Jacobi Theta Function: */ {a(n) = polcoeff( sum(m=-n, n, 2^m*(2*x)^(m^2) +x*O(x^(n^2))), n^2)} for(n=0, 15, print1(a(n), ", ")) (PARI) /* By the Jacobi Triple Product identity: */ {a(n) = polcoeff( prod(m=1, n^2, (1 - 4^m*x^(2*m)) * (1 + 4^m*x^(2*m-1)) * (1 + 4^(m-1)*x^(2*m-1)) +x*O(x^(n^2))), n^2)} for(n=0, 15, print1(a(n), ", ")) CROSSREFS Cf. A337950, A337949. Sequence in context: A264697 A319465 A193439 * A092817 A333035 A333459 Adjacent sequences:  A337948 A337949 A337950 * A337952 A337953 A337954 KEYWORD nonn AUTHOR Paul D. Hanna, Oct 03 2020 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 26 23:54 EST 2022. Contains 350601 sequences. (Running on oeis4.)