New polynomial set that yields a sequence set of real irrational numbers

Discussion in 'Mathematica' started by Roger L. Bagula, Apr 20, 2004.

  1. Mathematica code for the sequence:
    f[p_]=Sum[1/p^n,{n,1,m}]
    Table[NSolve[f[p]+1/p-p==0,p],{m,1,15}]
    m=Infinity
    aa=Sum[1/p^n,{n,1,m}]
    NSolve[aa+1/p-p==0,p]

    let d(0)=1.41421
    let d(1)=1.6180339
    let d(2)=1.71064
    let d(3)=1.75488
    let d(4)=1.77704
    let d(5)=1.78854
    let d(6)=1.79465
    let d(7)=1.79794
    let d(8)=1.79974
    let d(9)=1.80072
    let d(10)=1.80127
    let d(11)=1.80157
    let d(12)=1.80173
    let d(13)=1.80182
    let d(14)=1.80187
    let d(Infinity)=1.80194
    This sequence was discovered as the result of an experimental
    IFS fractal program.
    Respectfully,
    Roger L. Bagula
     
    Roger L. Bagula, Apr 20, 2004
    #1
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.