|
%I #9 Oct 19 2019 21:25:58
%S 1,4,9,33,80,174,588,1596,3135,9950,28512,56268,196040,496496,888300,
%T 3524577,9224880,18118362,63239220,150527400,310190454,1129200138,
%U 2971168704,5834056536,18513646430,53213956640,104687896833
%N Numbers formed by interpreting the reduced residue set of every even number as a Zeckendorf Expansion.
%H Amiram Eldar, <a href="/A054433/b054433.txt">Table of n, a(n) for n = 1..2392</a>
%F a(n) = A054433_as_sum(2*n).
%p with(combinat,fibonacci); # one_or_zero given at A054431.
%p A054433_as_sum := proc(n) local i; RETURN(add((one_or_zero(igcd(n,i))*fibonacci(i+1)),i=1..(n-1))); end;
%t 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 *)
%Y Cf. A054432, A048757, A051258, A063683.
%K nonn
%O 1,2
%A _Antti Karttunen_
|
