OFFSET
0,1
COMMENTS
a(n)/a(n-1) tends to (1+sqrt(37))/6 = 1.180460421716369948...
LINKS
Bruno Berselli, Table of n, a(n) for n = 0..1000
MATHEMATICA
RecurrenceTable[{a[0] == 2, a[1] == 3, a[n] == Floor[a[n - 1]/3] + a[n - 2]}, a, {n, 54}]
Transpose[NestList[{#[[2]], Floor[#[[2]]/3]+#[[1]]}&, {2, 3}, 60]][[1]] (* Harvey P. Dale, Nov 26 2015 *)
PROG
(Magma) [n le 2 select n+1 else Floor(Self(n-1)/3)+Self(n-2): n in [1..55]];
(Haskell)
a182281 n = a182281_list !! n
a182281_list = 2 : 3 : zipWith (+)
a182281_list (map (flip div 3) $ tail a182281_list)
-- Reinhard Zumkeller, Apr 30 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Bruno Berselli, Apr 21 2012
STATUS
approved