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

Author

Labos Elemer, Jun 28 2002

Keywords

• nonn

Comments

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

Links

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

Crossrefs

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

Programs

Magma

[Floor(n*Log(n)) mod n: n in [1..100]]; // Vincenzo Librandi, Jun 30 2014

Mathematica

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

PARI

a(n)=floor(n*log(n))%n \\ Charles R Greathouse IV, Aug 01 2011