OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Floor[5*n*Log[5*n]], {n, 80}] (* Vincenzo Librandi, Feb 13 2013 *)
PROG
(Derive) PROG(y := [], x := 100, LOOP(IF(x = 0, RETURN y), y := ADJOIN(FLOOR(5·x·LOG(5·x)), y), x := x - 1))
(Magma) [Floor(5*n*Log(5*n)): n in [1..80]]; // Vincenzo Librandi, Feb 13 2013
(PARI) a(n)=5*n*log(5*n)\1 \\ Charles R Greathouse IV, Sep 04 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mohammad K. Azarian, May 31 2012
STATUS
approved