A332060 a(n) = 3*a(n-1) + a(n-2) after initial values a(0..5) = (0, 1, 2, 3, 5, 13).
0, 1, 2, 3, 5, 13, 44, 145, 479, 1582, 5225, 17257, 56996, 188245, 621731, 2053438, 6782045, 22399573, 73980764, 244341865, 807006359, 2665360942, 8803089185, 29074628497, 96026974676, 317155552525, 1047493632251, 3459636449278, 11426402980085
Offset: 0
Keywords
Examples
The initial a(0) is conventional. (One could also choose a(0) = 1 to have a(2) = a(1) + a(0) as for the next two terms, but this wouldn't correspond to b(m) = b(k) + b(k-1), either.) We start with [a(1), a(2)] = [1, 2]. No gap or "hole" here to fill, so the next interval [a(2), a(3)] has upper bound a(3) = a(2) + 1 = 3, where 1 is the element just left to the right border a(2). Again, no gap or hole to fill in [2, 3], so the next interval has upper bound a(4) = a(3) + 2 = 5, where 2 is the element just left to the right border a(3). Now there's a hole in (3, 5), at position 4, which is filled with 3 + 5 = 8, so the next upper bound is a(5) = a(4) + 8 = 5 + 8 = 13: here the number 8 was the element left to the right border 5. Now there are several holes in (5, 13). The leftmost one (position 6) is filled with 5 + 13 = 18, and the rightmost (position 12) is filled with 18 + 13 = 31. So the next interval [a(5), a(6)] has upper bound a(6) = a(5) + 31 = 44.
Links
- Index entries for linear recurrences with constant coefficients, signature (3,1).
Crossrefs
Programs
-
PARI
for(n=1+#a=[0,1,2,3,5,13],#a=Vec(a,30),a[n]=a[n-1]*3+a[n-2]);a \\ Remove initial 0 to get a[1] = 1 etc. apply( {A332060(n)=if(n>3,[5,13]*([0,1;1,3]^(n-4))[,1],n)}, [0..20])
Formula
G.f.: x*(1 - x - 4*x^2 - 6*x^3 - 5*x^4)/(1 - 3*x - x^2).
Comments