|
| |
|
|
A081009
|
|
Fibonacci(4n+3)-1, or Fibonacci(2n+2)*Lucas(2n+1).
|
|
1
| |
|
|
1, 12, 88, 609, 4180, 28656, 196417, 1346268, 9227464, 63245985, 433494436, 2971215072, 20365011073, 139583862444, 956722026040, 6557470319841, 44945570212852, 308061521170128, 2111485077978049, 14472334024676220, 99194853094755496
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
REFERENCES
| Hugh C. Williams, Edouard Lucas and Primality Testing, John Wiley and Sons, 1998, p. 75
|
|
|
LINKS
| Nathaniel Johnston, Table of n, a(n) for n = 0..500
|
|
|
FORMULA
| a(n) = 8a(n-1)-8a(n-2)+a(n-3)
a(n)=-1+[(7/2)-(3/2)*sqrt(5)]^n+[(7/2)+(3/2)*sqrt(5)]^n+(2/5)*sqrt(5)*{[(7/2)+(3/2)*sqrt(5)]^n -[(7/2)-(3/2)*sqrt(5)]^n}, with n>=0 [From Paolo P. Lava (paoloplava(AT)gmail.com), Dec 01 2008]
|
|
|
MAPLE
| with(combinat) for n from 0 to 25 do printf(`%d, `, fibonacci(4*n+3)-1) od
|
|
|
MATHEMATICA
| Join[{a=1, b=12}, Table[c=7*b-1*a+5; a=b; b=c, {n, 60}]] (*From Vladimir Joseph Stephan Orlovsky, Jan 18 2011*)
|
|
|
PROG
| (MAGMA) [Fibonacci(4*n+3)-1: n in [0..100]]; // Vincenzo Librandi, Apr 15 2011
|
|
|
CROSSREFS
| Cf. A000045 (Fibonacci numbers), A000032 (Lucas numbers).
Sequence in context: A057406 A125349 A164608 * A155635 A126507 A181704
Adjacent sequences: A081006 A081007 A081008 * A081010 A081011 A081012
|
|
|
KEYWORD
| nonn,easy
|
|
|
AUTHOR
| R. K. Guy (rkg(AT)cpsc.ucalgary.ca), Mar 01, 2003
|
|
|
EXTENSIONS
| More terms and Maple code from James A. Sellers (sellersj(AT)math.psu.edu), Mar 03, 2003
|
| |
|
|
