A182280 a(n) = floor(a(n-1)/4)+a(n-2) with a(0)=3, a(1)=4.

3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 9, 10, 11, 12, 14, 15, 17, 19, 21, 24, 27, 30, 34, 38, 43, 48, 55, 61, 70, 78, 89, 100, 114, 128, 146, 164, 187, 210, 239, 269, 306, 345, 392, 443, 502, 568, 644, 729, 826, 935, 1059, 1199, 1358, 1538, 1742, 1973, 2235, 2531, 2867

Offset: 0

Author

Bruno Berselli, Apr 24 2012

Keywords

• nonn

Comments

a(n)/a(n-1) tends to (1+sqrt(65))/8 = 1.132782218537318706...

Links

• Bruno Berselli, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A064650, A182230, A182281; A188656.

Programs

Haskell

a182280 n = a182280_list !! n
a182280_list = 3 : 4 : zipWith (+)
                       a182280_list (map (flip div 4) $ tail a182280_list)
-- Reinhard Zumkeller, Apr 30 2015

Magma

[n le 2 select n+2 else Floor(Self(n-1)/4)+Self(n-2): n in [1..59]];

Mathematica

RecurrenceTable[{a[0] == 3, a[1] == 4, a[n] == Floor(a[n - 1]/4) + a[n - 2]}, a, {n, 58}]