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