The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A275173 a(n) = (a(n-3) + a(n-1) * a(n-5)) / a(n-6), a(0) = a(1) = ... = a(5) = 1. 6
 1, 1, 1, 1, 1, 1, 2, 3, 4, 6, 9, 22, 36, 51, 82, 129, 321, 529, 753, 1217, 1921, 4786, 7891, 11236, 18166, 28681, 71462, 117828, 167779, 271266, 428289, 1067137, 1759521, 2505441, 4050817, 6395649, 15935586, 26274979, 37413828, 60490982, 95506441, 237966646 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,7 COMMENTS Inspired by A048736. LINKS Colin Barker, Table of n, a(n) for n = 0..1000 Index entries for linear recurrences with constant coefficients, signature (0,0,0,0,16,0,0,0,0,-16,0,0,0,0,1). FORMULA G.f.: (1 +x +x^2 +x^3 +x^4 -15*x^5 -14*x^6 -13*x^7 -12*x^8 -10*x^9 +9*x^10 +6*x^11 +4*x^12 +3*x^13 +2*x^14) / ((1 -x)*(1 +x +x^2 +x^3 +x^4)*(1 -15*x^5 +x^10)). - Colin Barker, Jul 19 2016 a(n) = 16*a(n-5) - 16*a(n-10) + a(n-15). - G. C. Greubel, Jul 20 2016 MATHEMATICA RecurrenceTable[{a[n] == (a[n - 3] + a[n - 1] a[n - 5])/a[n - 6], a[1] == 1, a[2] == 1, a[3] == 1, a[4] == 1, a[5] == 1, a[6] == 1}, a, {n, 42}] (* or *) CoefficientList[Series[(1 + x + x^2 + x^3 + x^4 - 15 x^5 - 14 x^6 - 13 x^7 - 12 x^8 - 10 x^9 + 9 x^10 + 6 x^11 + 4 x^12 + 3 x^13 + 2 x^14)/((1 - x) (1 + x + x^2 + x^3 + x^4) (1 - 15 x^5 + x^10)), {x, 0, 41}], x] (* Michael De Vlieger, Jul 19 2016 *) PROG (Ruby) def A(k, l, n) a = Array.new(k * 2, 1) ary = [1] while ary.size < n + 1 break if (a[1] * a[-1] + a[k] * l) % a[0] > 0 a = *a[1..-1], (a[1] * a[-1] + a[k] * l) / a[0] ary << a[0] end ary end def A275173(n) A(3, 1, n) end (PARI) Vec((1 +x +x^2 +x^3 +x^4 -15*x^5 -14*x^6 -13*x^7 -12*x^8 -10*x^9 +9*x^10 +6*x^11 +4*x^12 +3*x^13 +2*x^14) / ((1 -x)*(1 +x +x^2 +x^3 +x^4)*(1 -15*x^5 +x^10)) + O(x^50)) \\ Colin Barker, Jul 19 2016 CROSSREFS Cf. A101879, A048736, A275174. Variants: A275175, A275176. Sequence in context: A213682 A103481 A215285 * A295394 A081419 A108858 Adjacent sequences: A275170 A275171 A275172 * A275174 A275175 A275176 KEYWORD nonn,easy AUTHOR Seiichi Manyama, Jul 19 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 4 12:59 EST 2023. Contains 360055 sequences. (Running on oeis4.)