A174951 a(n)=Floor((FoF .. n times .. FoF)(n)), where F(x)=Log(Abs(x));

0, -1, -3, 0, -2, -1, 0, -1, 1, -2, 0, -2, -1, -4, -1, -1, 0, -2, -2, 0, -1, -3, -2, 0, -1, -1, -1, -2, -1, -2, 0, 0, -1, -2, -1, 0, -1, -1, -3, 0, 0, -3, -1, -2, -1, -1, -1, -2, -2, 1, -1, -3, -1, -1, 1, -1, 0, -1, -2, 0, -2, 0, -1, 1, -1, -1, -1, -1, -2, -1, -2, -1, -1, 0, 0, -1, -4

Offset

1,3

Links

Table of n, a(n) for n=1..77.

Example

Log[5]=1.60944..; Log[Log[5]]=0.475885;Log[Log[Log[5]]]=-0.742579; Log[ -Log[Log[Log[5]]]]=-297626;Log[ -Log[ -Log[Log[Log[5]]]]]= -1.21192 ==>a(5)=Floor[ -1.21192]=-2

Mathematica

F[x_] := Log[Abs[x]]; a[n_]:=Nest[F, n, n]; Table[Floor[a[n]], {n, 115}]

Crossrefs

Sequence in context: A351532 A291786 A004603 * A275326 A092926 A052311

Adjacent sequences: A174948 A174949 A174950 * A174952 A174953 A174954

Keyword

sign

Author

Carmen Tasis Montes (ctasis(AT)uniovi.es), Apr 02 2010

Status

approved