This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A181904 #24 Jun 02 2025 03:13:46
%S A181904 3,5,63,17,1023,195,16383,4369,262143,31775,4194303,12291,67108863,
%T A181904 89478485,1073741823,16843009,17179869183,172229265,274877906943,
%U A181904 6663706835,4398046511103,254959218035,70368744177663,206208774147,1125899906842623,1501199875790165
%N A181904 a(n) = 2*(4^n - 1) / A027760(n).
%C A181904 The Clausen numbers A027760 divide 2*(4^n - 1).
%H A181904 Thomas Clausen, <a href="https://doi.org/10.1002/asna.18400172205">Lehrsatz aus einer Abhandlung ueber die Bernoulli'schen Zahlen</a>, Astr. Nachr. 17 (1840), 351-352.
%H A181904 Ludwig Seidel, <a href="http://publikationen.badw.de/de/003384831/pdf/CC%20BY">Über eine einfache Entstehungsweise der Bernoullischen Zahlen und einiger verwandten Reihen</a>, Sitzungsberichte der mathematisch-physikalischen Classe der königlich bayerischen Akademie der Wissenschaften zu München, Vol. 7 (1877), 157-187.
%t A181904 a[n_] := 2*(4^n-1)/Times @@ Select[Divisors[n]+1, PrimeQ]; Table[a[n], {n, 1, 26}] (* _Jean-François Alcover_, Jul 29 2013 *)
%o A181904 (Sage)
%o A181904 def A181904(n) :
%o A181904 def A027760(n) :
%o A181904 S = divisors(n)
%o A181904 S = map(lambda i: i+1, S)
%o A181904 S = filter(lambda i: is_prime(i), S)
%o A181904 return mul(i for i in S)
%o A181904 return 2*(4^n-1) / A027760(n)
%o A181904 [A181904(n) for n in (1..26)]
%Y A181904 Cf. A002446, A027760
%K A181904 nonn
%O A181904 1,1
%A A181904 _Peter Luschny_, Apr 01 2012