login
Bisection of A086652.
2

%I #9 Nov 15 2021 17:27:06

%S 13,58,244,1000,4048,16288,65344,261760,1047808,4192768,16774144,

%T 67102720,268423168,1073717248,4294918144,17179770880,68719280128,

%U 274877513728,1099510841344,4398044938240,17592182898688,70368737886208

%N Bisection of A086652.

%C (a(n)-2^(n-1))/2 = A006516(n+1).

%H Harvey P. Dale, <a href="/A086221/b086221.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = 2^(2n+2)-3*2^(n-1).

%F a(n+1) = 4*a(n)+3*2^n.

%t Table[2^(2n+2)-3*2^(n-1),{n,30}] (* or *) nxt[{n_,a_}]:={n+1,4a+3*2^n}; NestList[nxt,{1,13},30][[All,2]] (* _Harvey P. Dale_, Nov 15 2021 *)

%Y Cf. A006516, A086652.

%K nonn,easy

%O 1,1

%A _Marco Matosic_, Jul 27 2003

%E Edited and extended by _David Wasserman_, Feb 17 2005