cp's OEIS Frontend

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.

A160110 Numerators of |Bernoulli(n)*Gould(n)| for even n, (Gould A001316).

This page as a plain text file.
%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