A291197 Second differences of frac(n/log(n)) rounded, n >= 2.

0, -1, 1, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, 0, -1, 1, 0, 0, 0, 0, -1, 1, 0, 0, 0, -1, 1, 0, 0, 0, 0, -1

Offset

2

Comments

The second differences are very close to -1, 0 or 1.

Second differences of floor(-n/log(n)). - Robert Israel, Aug 20 2017

Links

Robert Israel, Table of n, a(n) for n = 2..10000

Maple

A0:= [seq(frac(n/log(n)), n=2..100)]:
seq(round(A0[n+2]-2*A0[n+1]+A0[n]), n=1..nops(A0)-2); # Robert Israel, Aug 20 2017

Mathematica

Differences[Table[Floor[-n/Log[n]], {n, 2, 100}], 2] (* Harvey P. Dale, Jan 05 2019 *)

Crossrefs

Sequence in context: A288670 A057215 A284905 * A269927 A246146 A191162

Adjacent sequences: A291194 A291195 A291196 * A291198 A291199 A291200

Keyword

sign

Author

Simon Plouffe, Aug 20 2017

Status

approved