OFFSET
0,3
COMMENTS
This is a list of row differences corresponding to a difference of 1 in table A182119, column 0. If A181119(k+1,0) - A182119(k,0) = 1, then a(n) = A182119(k+1,n) - A182119(k,n).
If p is a prime of the form 8*n +- 3, then a(p) == 3 (mod p). If p is a prime of the form 8*n +- 1, then a(p) == -1 (mod p).
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
Index entries for linear recurrences with constant coefficients, signature (7,-7,1).
FORMULA
a(n) = 6*a(n-1) - a(n-2) - 4. [corrected by Klaus Purath, Mar 19 2021]
a(n) = 2 - A182189(n).
From Klaus Purath, Mar 19 2021: (Start)
a(n) = 7*a(n-1) - 7*a(n-2) + a(n-3).
a(n) = (-1)*Sum_{i=1..2*n-1} A001333(i) for n > 0.
a(n) = 1 - A001542(n) for n > 0.
a(n) = 1 - 2*A001109(n) for n > 0.
a(n) = (-1)*A005409(2*n) for n > 0. (End)
G.f.: (1 - 8*x + 3*x^2)/((1-x)*(1-6*x+x^2)). - Chai Wah Wu, Apr 08 2021
a(n) = 1 - Pell(2*n), where Pell(n) = A000129(n). - G. C. Greubel, May 24 2021
MATHEMATICA
m = 13; n = 3; c = 0;
list3 = Reap[While[c < 22, t = 6 n - m - 4; Sow[t]; m = n; n = t; c++]][[2, 1]]
Table[1 -Fibonacci[2*n, 2], {n, 0, 40}] (* G. C. Greubel, May 24 2021 *)
PROG
(Sage) [1 - lucas_number1(2*n, 2, -1) for n in (0..40)] # G. C. Greubel, May 24 2021
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Kenneth J Ramsey, Apr 17 2012
STATUS
approved