A072631 Floor( n*log(n) ) mod n.

0, 1, 0, 1, 3, 4, 6, 0, 1, 3, 4, 5, 7, 8, 10, 12, 14, 16, 17, 19, 0, 2, 3, 4, 5, 6, 7, 9, 10, 12, 13, 14, 16, 17, 19, 21, 22, 24, 25, 27, 29, 30, 32, 34, 36, 38, 39, 41, 43, 45, 47, 49, 51, 53, 0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14, 16, 17, 18, 19, 21, 22, 23, 25, 26, 27, 29

Offset

1,5

Comments

Compare with A004648 because prime(n) ~ n * log(n).

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Mathematica

Table[Floor[Mod[n*Log[n], n]], {n, 80}] (* Harvey P. Dale, Jun 29 2014 *)

Prog

(PARI) a(n)=floor(n*log(n))%n \\ Charles R Greathouse IV, Aug 01 2011
(Magma) [Floor(n*Log(n)) mod n: n in [1..100]]; // Vincenzo Librandi, Jun 30 2014

Crossrefs

Cf. A004648, A072608, A072609, A072610, A072630.

Sequence in context: A338056 A321404 A024687 * A085196 A021293 A275979

Adjacent sequences: A072628 A072629 A072630 * A072632 A072633 A072634

Keyword

nonn

Author

Labos Elemer, Jun 28 2002

Status

approved