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 A111008 #16 Jun 24 2023 06:36:50 %S A111008 1,1,1,1,1,5,1,7,1,1,1,11,1,13,7,5,1,17,1,19,1,1,11,23,1,25,13,1,7,29, %T A111008 1,31,1,11,629,35,1,37,19,13,1,41,1,43,11,5,23,47,1,49,1,1003,481,53, %U A111008 1,5,7,19,29,59,1,61,2077,103,1,65,11,67,17,23,259,71,1,73,37,25,2489,77 %N A111008 a(n) = A000367(n)/A141590(n). %H A111008 Jeppe Stig Nielsen, <a href="/A111008/b111008.txt">Table of n, a(n) for n = 0..10000</a> %p A111008 A120082 := proc(n) local b; if n = 0 then b := 1 ; elif n = 1 then b := -1/4 ; elif type(n,'odd') then b := 0; else b := bernoulli(n)/(n+1)! ; fi; numer(b) ; end: %p A111008 A141590 := proc(n) A120082(2*n) ; end: A000367 := proc(n) numer(bernoulli(2*n)) ; end: %p A111008 A111008 := proc(n) A000367(n)/A141590(n) ; end: seq(A111008(n),n=0..120) ; # _R. J. Mathar_, Sep 03 2009 %o A111008 (PARI) upto(N)=bernvec(N);forstep(n=0,2*N,2,print1(gcd(numerator(bernfrac(n)), (n+1)!),", ")) \\ _Jeppe Stig Nielsen_, Jun 22 2023 %Y A111008 See A141517. %Y A111008 Cf. A300711. %K A111008 nonn %O A111008 0,6 %A A111008 _Paul Curtz_, Aug 25 2008 %E A111008 Edited and extended by _R. J. Mathar_, Sep 03 2009