|
Search: id:A001177
|
|
|
| A001177 |
|
a(n) = least k such that n divides Fibonacci number F_k. (Formerly M2314 N0914)
|
|
+0 12
|
|
| 1, 3, 4, 6, 5, 12, 8, 6, 12, 15, 10, 12, 7, 24, 20, 12, 9, 12, 18, 30, 8, 30, 24, 12, 25, 21, 36, 24, 14, 60, 30, 24, 20, 9, 40, 12, 19, 18, 28, 30, 20, 24, 44, 30, 60, 24, 16, 12, 56, 75, 36, 42, 27, 36, 10, 24, 36, 42, 58, 60, 15, 30, 24, 48, 35, 60, 68, 18, 24, 120
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
REFERENCES
|
A. Brousseau, Fibonacci and Related Number Theoretic Tables. Fibonacci Association, San Jose, CA, 1972, p. 25.
J. 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. Report ORNL-4261, Oak Ridge National Laboratory, Oak Ridge, Tennessee, Jun 1968.
Review of B. H. Hannon and W. L. Morris tables, Math. Comp., 23 (1969), 459-460.
Alfred S. Posamentier & Ingmar Lehmann, The (Fabulous) Fibonacci Numbers, Afterword by Herbert A. Hauptman, Nobel Laureate, 2. 'The Minor Modulus m(n)', Prometheus Books, NY, 2007, page 329-342.
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n=1..10000
|
|
FORMULA
|
A001175(n)=A001176(n)*a(n) for n >= 1.
a(n)=n iff n is of form 5^k or 12*5^k, a(n)=n-1 iff n is in A106535, a(n)=n+1 iff n is in A000057, a(n)=n+5 iff n is in 5*A000057, ... - Benoit Cloitre (benoit7848c(AT)orange.fr), Feb 10 2007
a(1)=1, a(2)=3, a(4)=6, and for e>2 a(2^e) = 3*2^(e-2); a(5^e) = 5^e; and if p is an odd prime not 5, then a(p^e) = p^(e-1)*m(p). If p is a prime of the form 10n +/- 1 then m(p) is a divisor of p-1. If q is a prime of the form 10n +/- 3 then m(q) is a divisor of q+1. If (r,s)=1 then m(r*s)=LCM(m(r),m(s)). Solutions to F_k == 0 (mod n) are given by k == 0 (mod a(n)). See Posamentier & Lahmann. - Robert G. Wilson v Jul 07 2007. Corrected by Max Alekseyev, Oct 19 2007.
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1}, While[ Mod[ Fibonacci@k, n] != 0, k++ ]; k]; Array[f, 74] (* Robert G. Wilson v (rgwv@rgwv.com), Jul 04 2007 *)
|
|
PROGRAM
|
(PARI) a(n)=if(n<0, 0, s=1; while(fibonacci(s)%n>0, s++); s) - Benoit Cloitre (benoit7848c(AT)orange.fr), Feb 10 2007
|
|
CROSSREFS
|
Cf. A000045, A060383. First occurrence of k is given in A131401.
Adjacent sequences: A001174 A001175 A001176 this_sequence A001178 A001179 A001180
Sequence in context: A016655 A057757 A058838 this_sequence A053991 A033957 A105321
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas
|
|
|
Search completed in 0.002 seconds
|