|
Search: id:A002510
|
|
|
| A002510 |
|
Expansion of a modular function for Gamma_0(15).
(Formerly M1825 N0725)
|
|
+0
1
|
|
| 1, 1, 2, 8, 10, 24, 53, 74, 153, 280, 436, 793, 1322, 2085, 3510, 5648, 8796, 14042, 21921, 33490, 51796, 78843, 118108, 178029, 265225, 390852, 576946, 843694, 1224329, 1775450, 2556360, 3658111, 5224159, 7418887, 10481780, 14773012
(list; graph; listen)
|
|
|
OFFSET
|
6,3
|
|
|
REFERENCES
|
Newman, Morris; Construction and application of a class of modular functions. II. Proc. London Math. Soc. (3) 9 1959 373-387.
|
|
FORMULA
|
eta(15z)^13/(eta(z)*eta(3z)^5*eta(5z)^7)
Euler transform of period 15 sequence [1, 1, 6, 1, 8, 6, 1, 1, 6, 8, 1, 6, 1, 1, 0, ...]. - Michael Somos Nov 10 2005
|
|
MAPLE
|
with (numtheory): etr:= proc(p) local b; b:=proc(n) option remember; local d, j; if n=0 then 1 else add (add (d*p(d), d=divisors(j)) *b(n-j), j=1..n)/n fi end end: aa:=etr (n-> [1, 1, 6, 1, 8, 6, 1, 1, 6, 8, 1, 6, 1, 1, 0] [modp(n-1, 15)+1]): a:=n-> aa(n-6): seq (a(n), n=6..41); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), Sep 08 2008]
|
|
PROGRAM
|
(PARI) {a(n)=local(A); if(n<6, 0, n-=6; A=x*O(x^n); polcoeff( eta(x^15+A)^13/ eta(x+A)/eta(x^3+A)^5/eta(x^5+A)^7, n))} /* Michael Somos Nov 10 2005 */
|
|
CROSSREFS
|
Adjacent sequences: A002507 A002508 A002509 this_sequence A002511 A002512 A002513
Sequence in context: A127219 A122208 A106358 this_sequence A102943 A062880 A066707
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
njas
|
|
EXTENSIONS
|
More terms from Kok Seng Chua (chuaks(AT)ihpc.nus.edu.sg), Jan 14 2001
|
|
|
Search completed in 0.002 seconds
|
