OFFSET
1,1
EXAMPLE
a(1)=2^11.A000594(2)
PROG
(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) forprime (p=2, 40, print1(p^11*rtau3(p)", "))
CROSSREFS
KEYWORD
sign
AUTHOR
Jon Perry, Jan 07 2003
STATUS
approved