A238691 a(n) = A190339(n)/A224911(n).
1, 2, 3, 15, 15, 21, 1155, 165, 2145, 51051, 255255, 440895, 440895, 969, 111435, 248834355, 248834355, 2927463, 5898837945, 44352165, 1641030105, 8563193457, 42815967285, 80047243185, 1360803134145, 32898537309, 7731156267615, 1028243783592795, 1028243783592795, 375840831244263
Offset: 0
Keywords
Examples
a(0)=2/2=1, a(1)=6/3=2, a(2)=15/5=3, a(3)=a(4)=105/7=15, ... .
Links
- Vincenzo Librandi, Table of n, a(n) for n = 0..200
Crossrefs
Cf. A060308.
Programs
-
Mathematica
nmax = 40; b[n_] := BernoulliB[n]; b[1] = 1/2; bb = Table[b[n], {n, 0, 2*nmax-1}]; diff = Table[Differences[bb, n], {n, 1, nmax}]; (#/FactorInteger[#][[-1, 1]])& /@ Denominator[Diagonal[diff]]
Extensions
a(16)-a(25) from Jean-François Alcover, Mar 03 2014
Comments