|
%I #23 Jan 20 2024 11:27:18
%S 3,10,19,29,40,52,63,76,88,102,115,129,142,156,171,185,200,215,230,
%T 245,261,276,292,307,323,339,355,372,388,404,421,438,454,471,488,505,
%U 522,539,557,574,591,609,626,644,662,679
%N a(n) = floor(3n*log(3n)).
%H Vincenzo Librandi, <a href="/A212456/b212456.txt">Table of n, a(n) for n = 1..1000</a>
%t Table[Floor[3*n*Log[3*n]], {n, 60}] (* _Vincenzo Librandi_, Feb 13 2013 *)
%o (Derive) PROG(y := [], x := 100, LOOP(IF(x = 0, RETURN y), y := ADJOIN(FLOOR(3·x·LOG(3·x)), y), x := x - 1))
%o (Magma) [Floor(3*n*Log(3*n)): n in [1..80]]; // _Vincenzo Librandi_, Feb 13 2013
%o (PARI) a(n)=3*n*log(3*n)\1 \\ _Charles R Greathouse IV_, Sep 04 2015
%Y Cf. A050502, A050504, A212455, A212457, A212458, A212459, A212460, A212461, A212462.
%K easy,nonn
%O 1,1
%A _Mohammad K. Azarian_, May 31 2012
|
