cp's OEIS Frontend

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

%I A182281 #19 Sep 08 2022 08:45:55
%S A182281 2,3,3,4,4,5,5,6,7,8,9,11,12,15,17,20,23,27,32,37,44,51,61,71,84,99,
%T A182281 117,138,163,192,227,267,316,372,440,518,612,722,852,1006,1187,1401,
%U A182281 1654,1952,2304,2720,3210,3790,4473,5281,6233,7358,8685,10253,12102
%N A182281 a(n) = floor(a(n-1)/3)+a(n-2) with a(0)=2, a(1)=3.
%C A182281 a(n)/a(n-1) tends to (1+sqrt(37))/6 = 1.180460421716369948...
%H A182281 Bruno Berselli, <a href="/A182281/a182281.txt">Table of n, a(n) for n = 0..1000</a>
%t A182281 RecurrenceTable[{a[0] == 2, a[1] == 3, a[n] == Floor[a[n - 1]/3] + a[n - 2]}, a, {n, 54}]
%t A182281 Transpose[NestList[{#[[2]],Floor[#[[2]]/3]+#[[1]]}&,{2,3},60]][[1]] (* _Harvey P. Dale_, Nov 26 2015 *)
%o A182281 (Magma) [n le 2 select n+1 else Floor(Self(n-1)/3)+Self(n-2): n in [1..55]];
%o A182281 (Haskell)
%o A182281 a182281 n = a182281_list !! n
%o A182281 a182281_list = 2 : 3 : zipWith (+)
%o A182281                        a182281_list (map (flip div 3) $ tail a182281_list)
%o A182281 -- _Reinhard Zumkeller_, Apr 30 2015
%Y A182281 Cf. A064650, A182229, A182280; A188935.
%K A182281 nonn
%O A182281 0,1
%A A182281 _Bruno Berselli_, Apr 21 2012