Search: id:A123931 Results 1-1 of 1 results found. %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, Home Page (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 Search completed in 0.001 seconds