MasseEffPapillon5=2.43658313228503`; (*masse effective inverse*)
MasseEffPapillon6=2.438782326555171`;

(**Masse effective inverse obtenue en diagonalisant la matrice de Bloch, pour différents approximants **)

(*k=3*)
m3=2.9475`;

(* k=4*)
m4=2.9173705944154205`; (*/- (10^(-5))*)
(* k=5*)
m5=2.886101056591097`;  (* +/- (10^(-4  ))*)
(* k=6 *)
m6=2.8529861619732224`; (* +/- (10^(-4  ))*)
(* k=7 *)
m7=2.8224997178397913`;(* +/- (10^(-4  ))*)

(* k=8 *)
m8=2.7891282429775166`;

Pi*m3;Pi*m5

ListPlot[{{1/8119,2.886101056591097`},{1/47321,2.8529861619732224`},{1/275807,2.8224997178397913`}}]

ListPlot[{{1/12,2.9465582002000685`},{1/29,2.9173705944154205`},{1/70,2.886101056591097`},{1/169,2.8529861619732224`},{1/408,2.8224997178397913`}}]

ListPlot[{{1/(Sqrt[12]),2.9465582002000685`},{1/(Sqrt[29]),2.9173705944154205`},{1/(Sqrt[70]),2.886101056591097`},{1/(Sqrt[169]),2.8529861619732224`},{1/(Sqrt[408]),2.8224997178397913`}},PlotRange->{{0,.3},{2.5,2.95}}]

1/((Sqrt[12])^( ))

Octonacci[k_]:=Module[{octo,i},
octo=Table[0,{i,1,k}];
octo[[1]]=1;
octo[[2]]=2;
Do[ octo[[i]]=octo[[i-2]]+2*octo[[i-1]],{i,3,k}];
octo];
locto=Octonacci[12]