OFFSET
0,5
LINKS
Peter Luschny, Swinging Primes.
MAPLE
a := n -> n! / A163087(n):
MATHEMATICA
sf[n_] := With[{f = Floor[n/2]}, Pochhammer[f+1, n-f]/f!]; a[0] = 1; a[n_] := n!/Product[sf[k], {k, Divisors[n]}]; Table[a[n], {n, 0, 26}] (* Jean-François Alcover, Jul 26 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 21 2009
STATUS
approved