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.
Vim Wenders has authored 2 sequences.
RecurrenceTable[{a[1]==1,a[n]==(a[n-1]+1)^n},a,{n,6}] (* Harvey P. Dale, Jan 17 2012 *)
a090390 n = a090390_list !! n a090390_list = 1 : 1 : 9 : zipWith (-) (map (* 5) $ tail $ zipWith (+) (tail a090390_list) a090390_list) a090390_list -- Reinhard Zumkeller, Aug 17 2013
[Evaluate(DicksonFirst(n,-1),2)^2/4: n in [0..40]]; // G. C. Greubel, Aug 21 2022
a:= n-> (<<1|0|0>>. <<1|2|2>, <2|1|2>, <2|2|3>>^n)[1, 1]: seq(a(n), n=0..30); # Alois P. Heinz, Aug 17 2013
CoefficientList[Series[(1-4x-x^2)/((1+x)(1-6x+x^2)),{x, 0, 30}], x] (* Harvey P. Dale, May 20 2012 *)
LinearRecurrence[{5,5,-1}, {1,1,9}, 30] (* Harvey P. Dale, May 20 2012 *)
Table[(ChebyshevT[n,3]+(-1)^n)/2, {n,0,30}] (* Eric W. Weisstein, Apr 17 2018 *)
(LucasL[Range[0, 40], 2]/2)^2 (* G. C. Greubel, Aug 21 2022 *)
a(n)=polcoeff((1-4*x-x^2)/((1+x)*(1-6*x+x^2))+x*O(x^n),n)
a(n)=if(n<0,0,([1,2,2;2,1,2;2,2,3]^n)[1,1])
Vec( (1-4*x-x^2)/((1+x)*(1-6*x+x^2)) + O(x^66) ) \\ Joerg Arndt, Aug 16 2013
use Math::Matrix; use Math::BigInt; $a = new Math::Matrix ([ 1, 2, 2], [ 2, 1, 2], [ 2, 2, 3]); $p = new Math::Matrix ([1, 0, 0]); $p->print(); for ($i=1; $i<20;$i++) { $p = $p->multiply($a); $p->print(); }
[lucas_number2(n,2,-1)^2/4 for n in (0..40)] # G. C. Greubel, Aug 21 2022
Comments