%I #4 Feb 09 2018 19:46:00
%S 1,5,14,32,65,124,225,394,673,1133,1880,3089,5034,8146,13106,20986,
%T 33464,53168,84201,132970,209449,329156,516200,807989,1262508,1969539,
%U 3067962,4772414,7414316,11505003
%N a(n) = floor(n*2*(3^n-2^n)/2^n).
%t Table[Floor[2n((3^n-2^n)/2^n)],{n,30}] (* _Harvey P. Dale_, Feb 09 2018 *)
%K easy,nonn
%O 1,2
%A _Ctibor O. Zizka_, May 19 2008
|