A299917 Erroneous version of A299915.
0, 1, 6, 9, 69, 513, 3789
Offset: 0
Keywords
References
- Murat Sahin and Elif Tan, Conditional (strong) divisibility sequences, Fib. Q., 56 (No. 1, 2018), 18-31. See Example 2.9.
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a:= n-> (<<0|1>, <-12|9>>^iquo(n, 2, 'r'). <>)[1, 1]: seq(a(n), n=0..35); # Alois P. Heinz, Mar 10 2018
Fold[Append[#1, Inner[Times, Boole[OddQ@ #2] + {1, 3}, {#1[[-1]], #1[[-2]]}, Plus]] &, {0, 1}, Range[2, 30]] (* or *) CoefficientList[Series[-x (3 x^2 - x - 1)/(12 x^4 - 9 x^2 + 1), {x, 0, 30}], x] (* Michael De Vlieger, Mar 10 2018 *)
concat(0, Vec(x*(1 + x - 3*x^2) / (1 - 9*x^2 + 12*x^4) + O(x^30))) \\ Colin Barker, Mar 11 2018
a:= n-> (<<0|1|0>, <0|0|1>, <8|8|-1>>^n. <<0, 1, 1>>)[1,1]: seq(a(n), n=0..35); # Alois P. Heinz, Mar 10 2018
Fold[Append[#1, Inner[Times, 2 Boole[OddQ@ #2] + {1, 2}, {#1[[-1]], #1[[-2]]}, Plus]] &, {0, 1}, Range[2, 30]] (* or *) CoefficientList[Series[-x (2 x + 1)/((x + 1) (8 x^2 - 1)), {x, 0, 30}], x] (* Michael De Vlieger, Mar 10 2018 *) nxt[{n_,a_,b_}]:={n+1,b,If[OddQ[n],b+2a,3b+4a]}; NestList[nxt,{1,0,1},30][[;;,2]] (* Harvey P. Dale, Mar 02 2025 *)
concat(0, Vec(x*(1 + 2*x) / ((1 + x)*(1 - 8*x^2)) + O(x^40))) \\ Colin Barker, Mar 11 2018