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