Pensieve header: January 13: Jones polynomial experiments, Fibonacci.

Get["C:\\drorbn\\AcademicPensieve\\Classes\\16-1750-ShamelessMathematica\\160111-JonesPoly.m"]

Knot

Knot=Xm[1,12,2,13]Xm[7,2,8,3]Xm[3,8,4,9]Xm[11,4,12,5]Xp[13,7,14,6]Xp[9,15,10,14]Xp[15,11,16,10]Xp[5,1,6,16]

Jones[Knot]

f[0]=1; f[1]=1;
f[n_] := (f[n]=f[n-1]+f[n-2])

Table[f[k], {k,1,10}]

f[40]

?f