|
| |
|
|
A081264
|
|
Odd Fibonacci pseudoprimes: odd numbers n such that either (1) n divides Fibonacci(n-1) if n mod 5 = 1 or -1 or (2) n divides Fibonacci(n+1) if n mod 5 = 2 or -2.
|
|
6
| |
|
|
323, 377, 1891, 3827, 4181, 5777, 6601, 6721, 8149, 10877, 11663, 13201, 13981, 15251, 17119, 17711, 18407, 19043, 23407, 25877, 27323, 30889, 34561, 34943, 35207, 39203, 40501, 50183, 51841, 51983, 52701, 53663, 60377, 64079, 64681
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Lehmer shows that there are an infinite number of Fibonacci pseudoprimes (FPPs). In particular, the number Fibonacci(2p) is an FPP for all primes p > 5. Anderson lists over 5000 FPPs. The sequences A069106 and A069107 give n such that n divides Fibonacci(n-1) and n divides Fibonacci(n+1), respectively. See A141137 for even FPPs.
|
|
|
REFERENCES
| R. Crandall and C. Pomerance, Primes Numbers: A Computational Perspective, Springer, 2002, p. 131.
E. Lehmer, On the infinitude of Fibonacci pseudoprimes, Fibonacci Quarterly, 2, 1964, pp. 229-230.
P. Ribenboim, The New Book of Prime Number Records, Springer, 1995, p. 127.
A. Witno, Theory of Numbers, BookSurge, North Charleston, SC; see p. 83.
|
|
|
LINKS
| P. G. Anderson, Table of n, a(n) for n = 1..5861 [taken from link below]
P. G. Anderson, Fibonacci pseudoprimes under 2,217,967,487 and their factors
Eric Weisstein's World of Mathematics, Fibonacci Pseudoprime
Wikipedia, Fibonacci pseudoprime
|
|
|
MATHEMATICA
| lst={}; f0=0; f1=1; Do[f2=f1+f0; If[n>1&&!PrimeQ[n], If[MemberQ[{1, 4}, Mod[n, 5]], If[Mod[f0, n]==0, AppendTo[lst, n]]]; If[MemberQ[{2, 3}, Mod[n, 5]], If[Mod[f2, n]==0, AppendTo[lst, n]]]]; f0=f1; f1=f2, {n, 100000}]; lst
|
|
|
CROSSREFS
| Cf. A069106, A069107.
Sequence in context: A033524 A082947 A082948 * A069107 A094412 A177745
Adjacent sequences: A081261 A081262 A081263 * A081265 A081266 A081267
|
|
|
KEYWORD
| nice,nonn
|
|
|
AUTHOR
| T. D. Noe (noe(AT)sspectra.com), Mar 15 2003, Jun 09 2008
|
| |
|
|
