OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..2000
MATHEMATICA
Select[Range[150], IntegerQ[ #!/(# + 1)^3] &]
PROG
(PARI) { n=0; f=1; for (a=1, 2784, f*=a; if (f%(a + 1)^3 == 0, write("b061751.txt", n++, " ", a)) ) } \\ Harry J. Smith, Jul 27 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 21 2001
STATUS
approved