|
Search: id:A078463
|
|
| |
|
| -25, 276, -1724, 6302, -10878, -10696, 101224, -198123, -2277, 650532, -905556, -206794, 979594, 815304, -230024, -7893070, 9633366, 7933988, -17771180, 2890272, -8611200, 31473960, 2645688, -46788185, 39364937, -87144792, 97926248, 103759462, -157618470, -23631328, -143863136
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
a(1)=A000594(2)-A000594(1)=-24-1=-25
|
|
PROGRAM
|
(PARI) T(n)=n*(n+1)/2 rtau3(n)=local(y, j); y=0; j=1; while (T(j-1)<n, j++); j--; for (i=1, j, y=y-(-1)^i*(2*i-1)*x^(T(i-1))); y=y^8; polcoeff(y, n-1) qtau(n)=local(f, fl, r); f=factor(n); fl=length(f[, 1]); r=1; for (i=1, fl, r=r*qtau2(f[, 1][i], f[, 2][i])); r qtau2(p, e)=local(s, rt); s=0; rt=rtau3(p); for (j=0, floor(e/2), s=s+(-1)^j*binomial(e-j, e-2*j)*p^(11*j)*rt^(e-2*j)); s for (k=2, 50, print1(qtau(k)-qtau(k-1)", "))
|
|
CROSSREFS
|
Cf. A000594.
Sequence in context: A010830 A022717 A061617 this_sequence A125413 A029987 A017582
Adjacent sequences: A078460 A078461 A078462 this_sequence A078464 A078465 A078466
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Jon Perry (perry(AT)globalnet.co.uk), Jan 01 2003
|
|
|
Search completed in 0.002 seconds
|
