A380696 a(n) = A007598(floor(n/2) - (-1)^n).
1, 1, 0, 1, 1, 4, 1, 9, 4, 25, 9, 64, 25, 169, 64, 441, 169, 1156, 441, 3025, 1156, 7921, 3025, 20736, 7921, 54289, 20736, 142129, 54289, 372100, 142129, 974169, 372100, 2550409, 974169, 6677056, 2550409, 17480761, 6677056, 45765225, 17480761, 119814916
Offset: 0
Links
- Paolo Xausa, Table of n, a(n) for n = 0..1000
- Benjamin G. Brunsden, Sequence shown as coordinates on the Fibonacci spiral
- Index entries for linear recurrences with constant coefficients, signature (0,2,0,2,0,-1).
Programs
-
Mathematica
A380696[n_] := Fibonacci[Floor[n/2] - (-1)^n]^2; Array[A380696, 50, 0] (* or *) LinearRecurrence[{0, 2, 0, 2, 0, -1}, {1, 1, 0, 1, 1, 4}, 50] (* Paolo Xausa, Mar 27 2025 *)
-
Python
from sympy import fibonacci def A380696(n): return fibonacci(n+1>>1 if n&1 else (n>>1)-1)**2 # Chai Wah Wu, Mar 26 2025
Comments