OFFSET
0,1
REFERENCES
Hugh C. Williams, Edouard Lucas and Primality Testing, John Wiley and Sons, 1998, p. 75.
LINKS
FORMULA
a(n) = 8a(n-1) - 8a(n-2) + a(n-3).
G.f.: ( -3+18*x ) / ( (x-1)*(x^2-7*x+1) ). a(n) = 3+A033888(n). - R. J. Mathar, Sep 03 2010
a(n) = (A004187(n)+1)*3. - Martin Ettl, Nov 11 2012
MAPLE
with(combinat): for n from 0 to 40 do printf(`%d, `, fibonacci(4*n)+3) od: # James A. Sellers, Mar 05 2003
PROG
(Magma) [Fibonacci(4*n)+3: n in [0..50]]; // Vincenzo Librandi, Apr 20 2011
(Maxima) makelist(fib(4*n)+3, n, 0, 30); /* Martin Ettl, Nov 11 2012 */
(PARI) Vec((-3+18*x)/((x-1)*(x^2-7*x+1)) + O(x^30)) \\ Michel Marcus, Dec 23 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
R. K. Guy, Mar 04 2003
STATUS
approved