[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Revision History for A177683 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
a(n) = 6*a(n-1)-8*a(n-2) for n > 4; a(0)=191, a(1)=1587, a(2)=14161, a(3)=123004, a(4)=508152.
(history; published version)
#19 by Ray Chandler at Fri Jun 30 15:29:04 EDT 2023
STATUS

editing

approved

#18 by Ray Chandler at Fri Jun 30 15:29:00 EDT 2023
LINKS

<a href="/index/Rec#order_02">Index entries for linear recurrences with constant coefficients</a>, signature (6, -8).

STATUS

approved

editing

#17 by Charles R Greathouse IV at Thu Sep 08 08:45:53 EDT 2022
PROG

(MAGMAMagma) [191, 1587, 14161] cat [2*4^(n+5)-2017*2^(n-1): n in [3..25]]; // Vincenzo Librandi, Sep 24 2013

Discussion
Thu Sep 08
08:45
OEIS Server: https://oeis.org/edit/global/2944
#16 by Harvey P. Dale at Wed Oct 16 11:32:15 EDT 2019
STATUS

editing

approved

#15 by Harvey P. Dale at Wed Oct 16 11:32:11 EDT 2019
MATHEMATICA

LinearRecurrence[{6, -8}, {191, 1587, 14161, 123004, 508152}, 20] (* Harvey P. Dale, Oct 16 2019 *)

STATUS

approved

editing

#14 by N. J. A. Sloane at Mon Feb 10 21:36:14 EST 2014
STATUS

proposed

approved

#13 by Jon E. Schoenfield at Mon Feb 10 20:42:34 EST 2014
STATUS

editing

proposed

#12 by Jon E. Schoenfield at Mon Feb 10 20:42:31 EST 2014
COMMENTS

Related to Reverse and Add trajectory of 537 in base 2: a(n) = A077076(4*n+1)/6, i.e. , one sixth of second quadrisection of A077076.

MATHEMATICA

Join[{191, 1587, 14161}, Transpose[NestList[{Last[#], 6Last[#]-8First[#]}&, {123004, 508152}, 20]][[1]]] (* Harvey P. Dale, Mar 6 06 2011 *)

STATUS

approved

editing

#11 by Charles R Greathouse IV at Thu Nov 21 12:50:04 EST 2013
MATHEMATICA

Join[{191, 1587, 14161}, Transpose[NestList[{Last[#], 6Last[#]-8First[#]}&, {123004, 508152}, 20]][[1]]] (* From _Harvey P. Dale, _, Mar 6 2011 *)

Discussion
Thu Nov 21
12:50
OEIS Server: https://oeis.org/edit/global/2062
#10 by Bruno Berselli at Tue Sep 24 09:26:53 EDT 2013
STATUS

editing

approved