A054433 Numbers formed by interpreting the reduced residue set of every even number as a Zeckendorf Expansion.

1, 4, 9, 33, 80, 174, 588, 1596, 3135, 9950, 28512, 56268, 196040, 496496, 888300, 3524577, 9224880, 18118362, 63239220, 150527400, 310190454, 1129200138, 2971168704, 5834056536, 18513646430, 53213956640, 104687896833

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..2392

Formula

a(n) = A054433_as_sum(2*n).

Maple

with(combinat, fibonacci); # one_or_zero given at A054431.
A054433_as_sum := proc(n) local i; RETURN(add((one_or_zero(igcd(n, i))*fibonacci(i+1)), i=1..(n-1))); end;

Mathematica

r[n_] := Sum[If[GCD[n, k] == 1, Fibonacci[n + 1 - k], 0], {k, 1, n}]; r /@ (2*Range[27]) (* Amiram Eldar, Oct 19 2019 *)

Crossrefs

Cf. A054432, A048757, A051258, A063683.

Sequence in context: A048757 A356825 A173659 * A219769 A379407 A308038

Adjacent sequences: A054430 A054431 A054432 * A054434 A054435 A054436

Keyword

nonn

Author

Antti Karttunen

Status

approved