[go: up one dir, main page]

login
A339572 revision #11

A339572
If n even, a(n) = A000071(n/2+1); if n odd, a(n) = A001610((n-1)/2).
1
0, 0, 1, 2, 2, 3, 4, 6, 7, 10, 12, 17, 20, 28, 33, 46, 54, 75, 88, 122, 143, 198, 232, 321, 376, 520, 609, 842, 986, 1363, 1596, 2206, 2583, 3570, 4180, 5777, 6764, 9348, 10945, 15126, 17710, 24475, 28656, 39602, 46367, 64078, 75024, 103681, 121392, 167760, 196417, 271442
OFFSET
0,4
COMMENTS
Differences between successive terms are Fibonacci numbers.
FORMULA
a(n) = Fibonacci(k+2) + Fibonacci(k)*(n mod 2) - 1, where k = floor(n/2). - Wesley Ivan Hurt, Dec 09 2020
MATHEMATICA
Block[{b = {0, 2}, a = {}}, Do[If[EvenQ[i], AppendTo[b, Total@ b[[-2 ;; -1]] + 1 ]; AppendTo[a, Fibonacci[i/2 + 1] - 1], AppendTo[a, b[[(i - 1)/2]]]], {i, 2, 53}]; a] (* Michael De Vlieger, Dec 09 2020 *)
CROSSREFS
The first differences are essentially A053602.
Sequence in context: A365827 A116665 A122135 * A027194 A039883 A024186
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 09 2020
STATUS
editing