Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
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
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 ORNL-4261, 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
D. Fulton and W. L. Morris, On arithmetical functions related to the Fibonacci numbers, Acta Arithmetica, 16 (1969), 105-110.
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
Sequence in context: A133687 A215870 A097587 * A001876 A033182 A053797
KEYWORD
nonn,nice
STATUS
approved