sagemathgh-39422: fix one optional internet doctest in oeis.py
    
currently broken for some reason

### 📝 Checklist

- [x] The title is concise and informative.
- [x] The description explains in detail what this PR is about.
- [ ] I have linked a relevant issue or discussion.
- [x] I have created tests covering the changes.
- [ ] I have updated the documentation and checked the documentation
preview.
    
URL: sagemath#39422
Reported by: Frédéric Chapoton
Reviewer(s): David Coudert, Frédéric Chapoton

Author: Release Manager

src/sage/databases/oeis.py

@@ -1809,11 +1809,9 @@ def programs(self, language='all', preparsing=True, keep_comments=False):
 
         EXAMPLES::
 
-            sage: ee = oeis('A001113') ; ee             # optional -- internet
-            A001113: Decimal expansion of e.
-
+            sage: ee = oeis.find_by_id('A00260')        # optional -- internet
             sage: ee.programs('pari')[0]                # optional -- internet
-            0: default(realprecision, 50080); x=exp(1); for (n=1, 50000, d=floor(x); x=(x-d)*10; write("b001113.txt", n, " ", d)); \\ _Harry J. Smith_, Apr 15 2009
+            0: {a(n) = binomial(...)};...
 
             sage: G = oeis.find_by_id('A27642')   # optional -- internet
             sage: G.programs('all')               # optional -- internet