OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
FORMULA
a(n) = A050502(2*n). - Michel Marcus, Jan 11 2016
MATHEMATICA
Table[Ceiling[2*n*Log[2*n]], {n, 80}] (* Vincenzo Librandi, Feb 13 2013 *)
PROG
(Derive) PROG(y := [], x := 100, LOOP(IF(x = 0, RETURN y), y := ADJOIN(CEILING(2·x·LOG(2·x)), y), x := x - 1))
(Magma) [Ceiling(2*n*Log(2*n)): n in [1..80]]; // Vincenzo Librandi, Feb 13 2013
(PARI) a(n) = ceil(2*n*log(2*n)); \\ Michel Marcus, Jan 11 2016
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mohammad K. Azarian, May 31 2012
STATUS
approved