%I A141056
%S A141056 1,2,6,2,30,2,42,2,30,2,66,2,2730,2,6,2,510,2,798,2,330,2,138,2,2730,2,
%T A141056 6,2,870,2,14322,2,510,2,6,2,1919190,2,6,2,13530,2,1806,2,690,2,282,2,
               46410,
%U A141056 2,66,2,1590,2,798,2,870,2,354,2,56786730,2,6,2,510,2,64722,2,30,2,4686
%N A141056 1 followed by A027760, a variant of Bernoulli number denominators.
%C A141056 The denominators of the Bernoulli numbers for n>0. B_n sequence begins 
               1, -1/2, 1/6, 0/2, -1/30, 0/2, 1/42, 0/2, ... This is an alternative 
               version of A027642 suggested by the theorem of Clausen. [From Peter 
               Luschny (peter(AT)luschny.de), Apr 29 2009]
%H A141056 Thomas Clausen, <a href="http://adsabs.harvard.edu/abs/1840AN.....17R.351">
               Lehrsatz aus einer Abhandlung Ueber die Bernoullischen Zahlen</a>
               , Astr. Nachr. 17 (22) (1840), 351-352. [From Peter Luschny (peter(AT)luschny.de), 
               Apr 29 2009]
%H A141056 Wikipedia, <a href="http://en.wikipedia.org/wiki/Bernoulli_number">Bernoulli 
               number</a> [From Peter Luschny (peter(AT)luschny.de), Apr 29 2009]
%p A141056 Contribution from Peter Luschny (peter(AT)luschny.de), Apr 29 2009: (Start)
%p A141056 Clausen := proc(n) local S,i;
%p A141056 S := numtheory[divisors](n); S := map(i->i+1,S);
%p A141056 S := select(isprime,S); mul(i,i=S) end proc:
%p A141056 seq(Clausen(i),i=0..24); (End)
%Y A141056 Cf. A027760, A027642. [From Peter Luschny (peter(AT)luschny.de), Apr 
               29 2009]
%Y A141056 Adjacent sequences: A141053 A141054 A141055 this_sequence A141057 A141058 
               A141059
%K A141056 nonn,new
%O A141056 0,2
%A A141056 Paul Curtz (bpcrtz(AT)free.fr), Aug 01 2008
%E A141056 Extended by R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Nov 22 2009