OFFSET
0,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..10000
EXAMPLE
A000594(2) = -24, so a(1) = 2.
MATHEMATICA
Select[Range[200], RamanujanTau[#] < 0 &] (* Carl Najafi, Sep 09 2011 *)
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) for (n=1, 100, if (rtau3(n)<0, print1(n", ")))
(PARI) isok(n) = ramanujantau(n) < 0; \\ Michel Marcus, Jan 20 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Jan 06 2003
STATUS
approved