%I A123931
%S A123931 0,1,0,3,0,5,0,2,3,4,0,0,0,6,9,0,0,0,0,0,18,10,0,0,0,12,0,0,0,0,0,0,30,
%T A123931 16,0,0,0,18,24,0,0,0,0,0,0,22,0,0,0,0,12,0,0,0,0,0,54,28,0,0,0,30,0,0,
%U A123931 0,0,0,0,3,0,0,0,0,36,0,0,0,0,0,0,0,40,0,0,0,42,51,0,0,0,0,0,3,46,0,0,
               0
%N A123931 a(n) = H(n)*n!/(floor(n/2))! (mod (n+1)), where H(n) = sum{k=1 to n} 
               1/k, the n-th harmonic number.
%H A123931 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%t A123931 f[n_] := Mod[HarmonicNumber[n]n!/Floor[n/2]!, n + 1]; Table[f[n], {n, 
               0, 100}] (*Chandler*)
%Y A123931 Cf. A124078.
%Y A123931 Sequence in context: A166586 A122274 A003966 this_sequence A058026 A004605 
               A086664
%Y A123931 Adjacent sequences: A123928 A123929 A123930 this_sequence A123932 A123933 
               A123934
%K A123931 easy,nonn
%O A123931 0,4
%A A123931 Leroy Quet Nov 28 2006
%E A123931 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 11 2006