OFFSET
1,2
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..997
G. Wulczy, Unity with Fibonacci, Problem H-247 and solution, Fib. Quarter. p. 89_90, Vol 15, 1, Feb. 1977.
FORMULA
G.f.: x^2*(7*x^10+336*x^9+880*x^8+6032*x^7+15792*x^6+16114*x^5+15792*x^4
+6032*x^3+880*x^2+336*x+7)/(-x^15+103683*x^10-103683*x^5+1). - Robert Israel, Mar 05 2017
MAPLE
seq(seq((combinat:-fibonacci(12*m+j)^2-1)/9, j=[2, 6, 10, 11, 13]), m=0..20); # Robert Israel, Mar 05 2017
MATHEMATICA
Select[(#^2-1)/9&/@Fibonacci[Range[100]], IntegerQ] (* Harvey P. Dale, Feb 07 2017 *)
PROG
(PARI) lista(nn)=v = [1, 2, 6, 10, 11, 13, 14, 18, 22, 23]; for (n=1, nn, j = (n % #v) +1; k = n\#v; print1((fibonacci(24*k+v[j])^2-1)/9, ", "); );
(PARI) a(n)=fibonacci(n\5*12+[1, 2, 6, 10, 11][n%5+1])^2\9 \\ Charles R Greathouse IV, Jan 26 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michel Marcus, Jan 25 2017
STATUS
approved