|
%I #7 Feb 24 2019 20:39:31
%S 1,1,1,1,1,2,2,3,3,2,2,2,2,60,60,1,3,10,10,42,42,20,12,30,30,252,36,4,
%T 4,8,8,231,231,70,210,2,2,5460,5460,14,42,660,132,1260,1260,56,840,
%U 210,210,7956,7956,44,396,440,440,228,228,40,120,24,24,720720,144144,715,2145,102,510
%N a(n) = A002790(n) / A164020(n).
%p A002790 := proc(n) add((-1)^k*stirling1(n, k)/(k+1), k=0..n) ; denom(%) ; end proc:
%p A002445 := proc(n) bernoulli(2*n) ; denom(%) ; end proc:
%p A164020 := proc(n) if type(n,'even') then A002445(n/2) ; else n+1 ; end if; end proc:
%p A165299 := proc(n) A002790(n)/A164020(n) ; end proc:
%p seq(A165299(n),n=0..80) ; # _R. J. Mathar_, Jul 04 2011
%K nonn
%O 0,6
%A _Paul Curtz_, Sep 14 2009
|
