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