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 A160110 #7 Sep 25 2018 08:08:39 %S A160110 1,1,1,2,1,10,1382,28,3617,87734,349222,3418052,472728182,34212412, %T A160110 94997844116,68926730208040,7709321041217,5155375716734, %U A160110 52630543106106954746,11719975655366236,522165436992898244102 %N A160110 Numerators of |Bernoulli(n)*Gould(n)| for even n, (Gould A001316). %C A160110 A001897 give the denominators of |Bernoulli(n)*Gould(n)| for even n, also the denominators of the cosecant numbers. %H A160110 G. C. Greubel, <a href="/A160110/b160110.txt">Table of n, a(n) for n = 0..314</a> %p A160110 b := n -> bernoulli(n)*2^add(i,i=convert(n,base,2)); %p A160110 a := n -> numer(abs(b(2*n))); %t A160110 G[n_] := Sum[Mod[Binomial[n, k], 2], {k, 0, n}]; (* A001316 *) Table[Abs[BernoulliB[n]*G[n]], {n, 0, 20}][[1 ;; -1 ;; 2]]//Numerator (* _G. C. Greubel_, Sep 25 2018 *) %Y A160110 Cf. A001897. %K A160110 frac,nonn %O A160110 0,4 %A A160110 _Peter Luschny_, May 02 2009