OFFSET
1,2
COMMENTS
REFERENCES
József Sándor and Borislav Crstici, Handbook of Number theory II, Kluwer Academic Publishers, 2004, Chapter 4, p. 384-386.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Self Number.
Eric Weisstein's World of Mathematics, Zeckendorf Representation.
Wikipedia, Self number.
MATHEMATICA
z[n_] := n + Length[DeleteCases[NestWhileList[# - Fibonacci[Floor[Log[Sqrt[5]*# + 3/2]/Log[GoldenRatio]]] &, n, # > 1 &], 0]]; m = 250; Complement[Range[m], Array[z, m]] (* after Alonso del Arte at A007895 *)
CROSSREFS
KEYWORD
nonn,base,changed
AUTHOR
Amiram Eldar, Nov 27 2020
STATUS
approved