cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A212424 Frobenius pseudoprimes with respect to Fibonacci polynomial x^2 - x - 1.

Original entry on oeis.org

4181, 5777, 6721, 10877, 13201, 15251, 34561, 51841, 64079, 64681, 67861, 68251, 75077, 90061, 96049, 97921, 100127, 113573, 118441, 146611, 161027, 162133, 163081, 186961, 197209, 219781, 231703, 252601, 254321, 257761, 268801, 272611
Offset: 1

Views

Author

Max Alekseyev, May 16 2012

Keywords

Comments

Grantham incorrectly claims that "the first Frobenius pseudoprime with respect to the Fibonacci polynomial x^2 - x - 1 is 5777". Crandall and Pomerance state that the first such Frobenius pseudoprime is actually 4181.
The Frobenius (1,-1) pseudoprimes are a subset of the odd Fibonacci pseudoprimes A081264. Among other ways, this can be seen by Theorem 3.6.6 of Crandall and Pomerance (2005) where the Frobenius criterion with respect to x^2 - Px + Q is an additional condition on an input which has passed the Lucas test for the same polynomial. - Dana Jacobsen, Aug 05 2015
Many other quadratics have a sparser set of pseudoprimes. For example, while there are 98702 pseudoprimes below 10^13 with respect to the Fibonacci polynomial, there are only 3897 for x^2 - 3x - 5. - Dana Jacobsen, Aug 05 2015
This is the intersection of A049062 and (A081264 union A141137), that is, composite k coprime to 5 such that Fibonacci(k) == (k/5) (mod k) and that k divides Fibonacci(k-(k/5)), where (k/5) is the Legendre or Jacobi symbol. - Jianing Song, Sep 12 2018

References

  • R. Crandall, C. B. Pomerance. Prime Numbers: A Computational Perspective. Springer, 2nd ed., 2005.

Crossrefs

Terms congruent to 2 or 3 mod 5 are given in A212423.

Programs

  • PARI
    { isFP(n) = if(ispseudoprime(n),return(0)); t=Mod(x*Mod(1,n),(x^2-x-1)*Mod(1,n))^n; (kronecker(5,n)==-1 && t==1-x)||(kronecker(5,n)==1 && t==x) }
    
  • Perl
    use ntheory ":all"; foroddcomposites { say if is_frobenius_pseudoprime($,1,-1) } 1e10; # _Dana Jacobsen, Aug 05 2015