1,3

An effort to model the function of hyperbolic-type numbers :

f[n_] := If[n == 0, 0, Sinh[n*Pi]/Sinh[Pi]];

out2 = Table[Floor[f[n]], {n, 0, 20}]

{0, 1, 23, 536, 12414, 287287, 6648038, 153840223, 3559969319, 82380155808,

1906333864611, 44113886016440, 1020825877143916, 23622617854574666,

546643738954316017, 12649714742775054564, 292723160754894011024,

6773816689524637485291, 156750809963080035635001, 3627322313294829420472342,

83938750731977514666561352}

a(0)=0;a(1)=1;a(2)=Floor[Exp[Pi]]; a(n)=Floor[a(n-1)*Exp[Pi]]

a[0] = 0; a[1] = 1; a[2] = Floor[Exp[Pi]]; a[n_] := a[n] = Floor[a[n - 1]*Exp[Pi]] out1 = Table[a[n], {n, 0, 20}]

Adjacent sequences: A136667 A136668 A136669 this_sequence A136671 A136672 A136673

Sequence in context: A147642 A057686 A042014 this_sequence A062360 A062511 A098103

nonn,uned

Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 04 2008