OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..550 (terms below 10^5)
EXAMPLE
MATHEMATICA
z[n_] := Length[DeleteCases[NestWhileList[# - Fibonacci[Floor[Log[Sqrt[5]*# + 3/2]/Log[GoldenRatio]]] &, n, # > 1 &], 0]]; (* Alonso del Arte at A007895 *)
s[n_] := s[n] = z[2^n]; Select[Range[0, 1500], s[#] == s[# + 1] &]
PROG
(PARI) A007895(n)=if(n<4, n>0, my(k=2, s, t); while(fibonacci(k++)<=n, ); while(k && n, t=fibonacci(k); if(t<=n, n-=t; s++); k--); s); \\ Charles R Greathouse IV at A007895
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jul 25 2024
STATUS
approved