login
A182280
a(n) = floor(a(n-1)/4)+a(n-2) with a(0)=3, a(1)=4.
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,1
COMMENTS
a(n)/a(n-1) tends to (1+sqrt(65))/8 = 1.132782218537318706...
LINKS
MATHEMATICA
RecurrenceTable[{a[0] == 3, a[1] == 4, a[n] == Floor(a[n - 1]/4) + a[n - 2]}, a, {n, 58}]
PROG
(Magma) [n le 2 select n+2 else Floor(Self(n-1)/4)+Self(n-2): n in [1..59]];
(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
CROSSREFS
KEYWORD
nonn
AUTHOR
Bruno Berselli, Apr 24 2012
STATUS
approved