

A001179


Leonardo logarithm of n.
(Formerly M0052 N0017)


3



0, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 2, 1, 1, 3, 1, 1, 1, 1, 2, 2, 1, 2, 1, 2, 1, 1, 1, 1, 2, 2, 1, 2, 2, 2, 1, 1, 1, 1, 3, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 2, 2, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,5


COMMENTS

Are the powers of 5 (together with 2) the indices of records in this sequence?  Charles R Greathouse IV, Aug 11 2022


REFERENCES

B. H. Hannon and W. L. Morris, Tables of Arithmetical Functions Related to the Fibonacci Numbers. Report ORNL4261, Oak Ridge National Laboratory, Oak Ridge, Tennessee, Jun 1968.
N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).


LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
D. Fulton and W. L. Morris, On arithmetical functions related to the Fibonacci numbers, Acta Arithmetica, 16 (1969), 105110.
B. H. Hannon and W. L. Morris, Tables of Arithmetical Functions Related to the Fibonacci Numbers [Annotated and scanned copy]
Wikipedia, Pisano period


FORMULA

A235249(n) = 24*5^(a(n)1) for n > 1.  Reinhard Zumkeller, Jan 15 2014


PROG

(Haskell)
a001179 1 = 0
a001179 n = if p == n then ll (p `div` 24) 1 else a001179 p
where p = a001175 n
ll x k = if x == 1 then k else ll (x `div` 5) (k + 1)
 Reinhard Zumkeller, Jan 15 2014


CROSSREFS

Cf. A001175, A235249.
Sequence in context: A133687 A215870 A097587 * A001876 A033182 A053797
Adjacent sequences: A001176 A001177 A001178 * A001180 A001181 A001182


KEYWORD

nonn,nice


AUTHOR

N. J. A. Sloane


STATUS

approved



