%I #11 Jun 11 2021 09:44:28
%S 1,2,4,12,60,5,80,720,7920,55440,55440,6160,6160,18480,425040,5525520,
%T 160240080,160240080,53413360,53413360,480720240,480720240,
%U 19709529840,19709529840,39419059680,197095298400,3350620072800,177582863858400
%N a(n) = denominator(Sum_{k=1..n} (-1)^(k+1)/(prime(k)-1)).
%C Numbers m such that a(m) equals A128646(m) are listed in A128649.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeSums.html">Prime Sums</a>
%F a(n) = denominator(Sum_{k=1..n} (-1)^(k+1)/(prime(k)-1)).
%t Table[Denominator[Sum[(-1)^(k+1)*1/(Prime[k]-1),{k,1,n}]],{n,1,36}]
%Y Cf. A128647 (numerator(Sum_{k=1..n} (-1)^(k+1)/(prime(k)-1))).
%Y Cf. A128646 (denominator(Sum_{k=1..n} 1/(prime(k)-1))).
%Y Cf. A128649, A120271, A119686, A006093, A000040.
%K frac,nonn
%O 1,2
%A _Alexander Adamchuk_, Mar 18 2007