%I #6 Sep 16 2015 12:49:07
%S 0,1,8,180,604800,68428800,2324754432000,640237370572800,
%T 93666727314800640000,20325889640780924033433600000,
%U 16578303738261941164769280000000
%N a(1) = 0; for n > 1: a(n) = 2*(prime(n)-1)!/(prime(n)+1).
%t Join[{0}, Table[2*(Prime[n] - 1)!/(Prime[n] + 1), {n, 2, 15}]] (* _Stefan Steinerberger_, Jul 16 2007 *)
%K easy,nonn
%O 1,3
%A _Giovanni Teofilatto_, Jul 14 2007
%E More terms from _Stefan Steinerberger_ and _Robert G. Wilson v_, Jul 16 2007
|