1 internet doctest failing in combinat/quickref.py

[slabbe]

With SageMath version 9.2.beta2, Release Date: 2020-06-26, the command

sage -t --optional=sage,internet src/sage/combinat/quickref.py

gives

sage -t --long src/sage/combinat/quickref.py
**********************************************************************
File "src/sage/combinat/quickref.py", line 9, in sage.combinat.quickref
Failed example:
    s[0].programs() # optional - internet
Expected:
    0: (PARI) {a(n) = if( n<0, 0, n!^2 * 4^n * polcoeff( 1 / besselj(0, x + x * O(x^(2*n))), 2*n))}; /* _Michael Somos_, May 17 2004 */
Got:
    [('maple', 0: A000275 := proc(n) sum(z^k/k!^2, k = 0..infinity);
      1: series(%^x, z=0, n+1): n!^2*coeff(%,z,n); add(abs(coeff(%,x,k)), k=0..n) end:
      2: seq(A000275(n), n=0..17); # _Peter Luschny_, May 27 2017),
     ('mathematica',
      0: a[0] = 1; a[n_] := a[n] = Sum[(-1)^(r+n+1)*Binomial[n, r]^2 a[r], {r, 0, n-1}]; Table[a[n], {n, 0, 17}] (* _Jean-François Alcover_, Aug 05 2013 *)
      1: CoefficientList[Series[1/BesselJ[0,Sqrt[4*x]], {x, 0, 20}], x]* Range[0, 20]!^2 (* _Vaclav Kotesovec_, Mar 02 2014 *)
      2: a[ n_] := If[ n < 0, 0, (n! 2^n)^2 SeriesCoefficient[ 1 / BesselJ[ 0, x], {x, 0, 2 n}]]; (* _Michael Somos_, Aug 20 2015 *)),
     ('pari',
      0: {a(n) = if( n<0, 0, n!^2 * 4^n * polcoeff( 1 / besselj(0, x + x * O(x^(2*n))), 2*n))}; /* _Michael Somos_, May 17 2004 */)]
**********************************************************************
1 item had failures:
   1 of  22 in sage.combinat.quickref
    5 not tested tests not run
    0 tests not run because we ran out of time
    [21 tests, 1 failure, 3.06 s]

[chapoton]

done, please review

---

New commits:

​d56f012

fix oeis doctest

[slabbe]

Maybe you want to review #30020