%I #18 Sep 08 2022 08:46:05
%S 2,4,8,20,48,121,312,820,2186,5904,16104,44286,122640,341640,956593,
%T 2690420,7596480,21523360,61171656,174339220,498112057,1426411800,
%U 4093181688,11767897353,33891544377,97764070320,282429536480,817028301962,2366564736720
%N Floor((3^n-1)/n).
%H Vincenzo Librandi, <a href="/A225585/b225585.txt">Table of n, a(n) for n = 1..300</a>
%t Table[Floor[(3^n - 1) / n], {n, 30}] (* or *) Table[Quotient[3^n - 1, n], {n, 30}]
%o (Magma) [Floor((3^n-1)/n): n in [1..30]];
%Y Cf. A003462, A007051, A024023, A034472, A082482, A092763.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, May 30 2013
|