OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[ Range[800], Mod[ PartitionsP[ # ], 13] == 0 &]
PROG
(PARI) \ps800 for(n=0, 600, if(polcoeff(1/eta(x), n, x)%13==0, print1(n, ", ")))
(PARI) is(n)=numbpart(n)%13==0 \\ Charles R Greathouse IV, Apr 08 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Benoit Cloitre, Jun 24 2002
EXTENSIONS
Edited by Robert G. Wilson v, Jun 27 2002
STATUS
approved