A094539 - OEIS

%I #12 Aug 26 2015 23:24:27

%S 0,0,1,3,11,33,105,315,961,2883,8697,26091,78411,235233,706113,

%T 2118339,6356243,19068729,57209865,171629595,514899771,1544699313,

%U 4634130897,13902392691,41707276809,125121830427,375365787489,1126097362467

%N a(n) = A094538(n)/3.

%H Vincenzo Librandi, <a href="/A094539/b094539.txt">Table of n, a(n) for n = 0..1000</a>

%t a[0] = 1; a[n_] := a[n] = 3*a[n - 1] - If[EvenQ[n], a[n/2], 0]; Insert[Table[(3^(n) - a[n])/3, {n, 1, 30}], 0, 1] (* _Stefan Steinerberger_, Mar 24 2006 *)

%Y Cf. A003000, A019308, A094538.

%K nonn,easy

%O 0,4

%A _N. J. A. Sloane_, Jun 06 2004

%E More terms from _Stefan Steinerberger_, Mar 24 2006