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