Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Next line in the sequence

  1. Feb 18, 2009 #1
    Can anybody predict the next line in the sequence?

    -1
    1 -1
    -3 7 -4
    15 -63 82 -34
    -105 729 -1638 1510 -496
    945 -10545 36684 -56568 40540 -11056


    Good Luck!
     
  2. jcsd
  3. Feb 19, 2009 #2

    Gokul43201

    User Avatar
    Staff Emeritus
    Science Advisor
    Gold Member

    Just for my curiosity, where is this question from?
     
  4. Feb 21, 2009 #3
    first element in row : : : last element in row
    -10,395 : : : : : : : : sum of previous elements in row * -1

    I'm likewise curious to as to what this sequence is to. It might help to figure out the sequence.

    It would look roughly something like:
    -10,395 161,051 -1,054,500 1,907,568 –1,207,882 1,641,870 -278,300

    That is, each element should roughly be around the value given (within 25% error maybe?), except that the first value is correct.
     
  5. Feb 22, 2009 #4
    Hi All...

    The sequence comes from the series solution to a differential equation,,,,

    and the next line is...

    -10395 186075 -946392 2174820 -2552292 1497688 -349504
     
  6. Feb 22, 2009 #5
    What's the formula for producing some of these elements (like row 5 for example)?
     
  7. Feb 24, 2009 #6
    I've just posted this to the differential equations section....it should explain everything

    I've been working on finding a closed form solution or an approximate solution for a variant of the Poisson-Boltzmann equation.

    y''[x]=A*(1-e^(-y[x])

    I'm unable to solve it using methods such as separation of variables, but I have been able to generate a power series using recursive derivatives. I've pasted the mathematica code below...I've been unable to find the pattern to generate the series...can anybody help?

    In[2]:= (*Define Recursive Derivative Function *)

    In[3]:= Derivative[N_][Y][0]:=D[Y''[x],{x,N-2}] /. x->0

    In[4]:= (*Define the Problem*)

    In[5]:= Y''[x]=A*(1-E^(-Y[x]))

    Out[5]= A (1-E^-Y[x])

    In[6]:= Y''[0]=Y''[x] /. x->0

    Out[6]= A (1-E^-Y[0])

    In[7]:= Y'[0]=0

    Out[7]= 0

    In[8]:= (*Check the Series*)

    In[9]:= Y[0]+Integrate[Integrate[Series[Y''[x],{x,0,10}],x],x]

    Out[9]= Y[0]+1/2 (A-A E^-Y[0]) x^2+1/24 A^2 E^(-2 Y[0]) (-1+E^Y[0]) x^4-1/720 (A^3 E^(-3 Y[0]) (4-7 E^Y[0]+3 E^(2 Y[0]))) x^6+(A^4 E^(-4 Y[0]) (-34+82 E^Y[0]-63 E^(2 Y[0])+15 E^(3 Y[0])) x^8)/40320-((A^5 E^(-5 Y[0]) (496-1510 E^Y[0]+1638 E^(2 Y[0])-729 E^(3 Y[0])+105 E^(4 Y[0]))) x^10)/3628800+(A^6 E^(-6 Y[0]) (-11056+40540 E^Y[0]-56568 E^(2 Y[0])+36684 E^(3 Y[0])-10545 E^(4 Y[0])+945 E^(5 Y[0])) x^12)/479001600+O[x]^13
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook




Similar Discussions: Next line in the sequence
  1. Next number (Replies: 2)

  2. Tricky sequence (Replies: 1)

  3. Number Sequence (Replies: 2)

Loading...