|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|