Perrin number

Spiral of equilateral triangles with side lengths equal to Perrin numbers.

In mathematics, the Perrin numbers are a doubly infinite constant-recursive integer sequence with characteristic equation x³ = x + 1. The Perrin numbers bear the same relationship to the Padovan sequence as the Lucas numbers do to the Fibonacci sequence.

Definition

The Perrin numbers are defined by the recurrence relation

${\begin{aligned}P(0)&=3,\\P(1)&=0,\\P(2)&=2,\\P(n)&=P(n-2)+P(n-3){\mbox{ for }}n>2,\end{aligned}}$

and the reverse

$P(n)=P(n+3)-P(n+1){\mbox{ for }}n<0.$

The first few terms in both directions are

n	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17
P(n)	3	0	2	3	2	5	5	7	10	12	17	22	29	39	51	68	90	119	...
P(−n)	...	−1	1	2	−3	4	−2	−1	5	−7	6	−1	−6	12	−13	7	5	−18	...

Perrin numbers can be expressed as sums of the three initial terms

${\begin{array}{c|c|c}n&P(n)&P(-n)\\\hline 0&P(0)&...\\1&P(1)&P(2)-P(0)\\2&P(2)&-P(2)+P(1)+P(0)\\3&P(1)+P(0)&P(2)-P(1)\\4&P(2)+P(1)&P(1)-P(0)\\5&P(2)+P(1)+P(0)&-P(2)+2P(0)\\6&P(2)+2P(1)+P(0)&2P(2)-P(1)-2P(0)\\7&2P(2)+2P(1)+P(0)&-2P(2)+2P(1)+P(0)\\8&2P(2)+3P(1)+2P(0)&P(2)-2P(1)+P(0)\end{array}}$

The first fourteen prime Perrin numbers are

n	2	3	4	5	6	7	10	12	20	21	24	34	38	75	...
P(n)	2	3	2	5	5	7	17	29	277	367	853	14197	43721	1442968193	...

History

In 1876 the sequence and its equation were initially mentioned by Édouard Lucas, who noted that the index n divides term P(n) if n is prime. In 1899 Raoul Perrin asked if there were any counterexamples to this property. The first P(n) divisible by composite index n was found only in 1982 by William Adams and Daniel Shanks. They presented a detailed investigation of the sequence, with a sequel appearing four years later.

Properties

A Perrin microcosm: the escape time algorithm is applied to the Newton map of the entire Perrin function F(z) around critical point z = 1.225432 with viewport width 0.05320. The basins of attraction emanating from the centre correspond to the infinite number of real (left) and complex roots (right) F(z) = 0.

The Perrin sequence also satisfies the recurrence relation $P(n)=P(n-1)+P(n-5).$ Starting from this and the defining recurrence, one can create an infinite number of further relations, for example $P(n)=P(n-3)+P(n-4)+P(n-5).$

The generating function of the Perrin sequence is

${\frac {3-x^{2}}{1-x^{2}-x^{3}}}=\sum _{n=0}^{\infty }P(n)\,x^{n}$

The sequence is related to sums of binomial coefficients by

$P(n)=n\times \sum _{k=\lfloor (n+2)/3\rfloor }^{\lfloor n/2\rfloor }{\binom {k}{n-2k}}/k,$

$P(-n)=n\times \sum _{k=0}^{\lfloor n/3\rfloor }(-1)^{n-k}{\binom {n-2k}{k}}/(n-2k).$

Perrin numbers can be expressed in terms of partial sums

${\begin{aligned}P(n+5)-2&=\sum _{k=0}^{n}P(k)\\P(2n+3)&=\sum _{k=0}^{n}P(2k)\\5-P(4-n)&=\sum _{k=0}^{n}P(-k)\\3-P(1-2n)&=\sum _{k=0}^{n}P(-2k).\end{aligned}}$

The Perrin numbers are obtained as integral powers n ≥ 0 of the matrix

${\begin{pmatrix}0&1&0\\0&0&1\\1&1&0\end{pmatrix}}^{n}{\begin{pmatrix}3\\0\\2\end{pmatrix}}={\begin{pmatrix}P(n)\\P(n+1)\\P(n+2)\end{pmatrix}},$

and its inverse

${\begin{pmatrix}-1&0&1\\1&0&0\\0&1&0\end{pmatrix}}^{n}{\begin{pmatrix}3\\0\\2\end{pmatrix}}={\begin{pmatrix}P(-n)\\P(1-n)\\P(2-n)\end{pmatrix}}.$

The Perrin analogue of the Simson identity for Fibonacci numbers is given by the determinant

${\begin{vmatrix}P(n+2)&P(n+1)&P(n)\\P(n+1)&P(n)&P(n-1)\\P(n)&P(n-1)&P(n-2)\end{vmatrix}}=-23.$

The number of different maximal independent sets in an n-vertex cycle graph is counted by the nth Perrin number for n ≥ 2.

Binet formula

The Perrin function extends the sequence to real numbers.

The solution of the recurrence $P(n)=P(n-2)+P(n-3)$ can be written in terms of the roots of characteristic equation $x^{3}-x-1=0$. If the three solutions are real root ⁠$\alpha$⁠ (with approximate value 1.324718 and known as the plastic ratio) and complex conjugate roots ⁠$\beta$⁠ and ⁠$\gamma$⁠, the Perrin numbers can be computed with the Binet formula $P(n)=\alpha ^{n}+\beta ^{n}+\gamma ^{n},$ which also holds for negative n.

The polar form is $P(n)=\alpha ^{n}+2\cos(n\,\theta ){\sqrt {\alpha ^{-n}}},$ with $\theta =\arccos(-{\sqrt {\alpha ^{3}}}/2).$ Since $\lim _{n\to \infty }\alpha ^{-n}=0,$ the formula reduces to either the first or the second term successively for large positive or negative n, and numbers with negative subscripts oscillate. Provided α is computed to sufficient precision, these formulas can be used to calculate Perrin numbers for large n.

Expanding the identity $P^{2}(n)=(\alpha ^{n}+\beta ^{n}+\gamma ^{n})^{2}$ gives the important index-doubling rule $P(2n)=P^{2}(n)-2P(-n),$ by which the forward and reverse parts of the sequence are linked.

Prime index p divides P(p)

If the characteristic equation of the sequence is written as $f(x)=x^{3}-\sigma _{1}x^{2}+\sigma _{2}x-\sigma _{3}$ then the coefficients ⁠$\sigma _{k}$⁠ can be expressed in terms of roots $\alpha ,\beta ,\gamma$ with Vieta's formulas:

${\begin{alignedat}{3}\sigma _{1}&=\alpha +\beta +\gamma &&=0\\\sigma _{2}&=\alpha \beta +\alpha \gamma +\beta \gamma &&=-1\\\sigma _{3}&=\alpha \beta \gamma &&=1.\end{alignedat}}$

These integer valued functions are the elementary symmetric polynomials in $\alpha ,\beta ,\gamma .$

• The fundamental theorem on symmetric polynomials states that every symmetric polynomial in the complex roots of monic ⁠$f$⁠ can be represented as another polynomial function in the integer coefficients of ⁠$f.$⁠
• The analogue of Lucas's theorem for multinomial coefficients ${\frac {p!}{i!j!k!}}$ says that if ⁠$i,j,k<p$⁠ then ${\binom {p}{i,j,k}}$ is divisible by prime ⁠$p.$⁠

Given integers a, b, c and n > 0,

$(a+b+c)^{n}=\sum _{i+j+k=n}{\binom {n}{i,j,k}}a^{i}b^{j}c^{k}.$

Rearrange into symmetric monomial summands, permuting exponents i, j, k:

$(a+b+c)^{n}-(a^{n}+b^{n}+c^{n})=$ $\sum _{\begin{aligned}i\leq j\leq k&<n\\i+j+k&=n\end{aligned}}{\binom {n}{i,j,k}}\sum _{\pi (i,j,k)}a^{i}b^{j}c^{k}.$

Substitute prime ⁠$p$⁠ for power ⁠$n$⁠ and complex roots $\alpha ,\beta ,\gamma$ for integers ⁠$a,b,c$⁠ and compute representations in terms of $\sigma _{1},\sigma _{2},\sigma _{3}$ for all symmetric polynomial functions. For example, $(\alpha +\beta +\gamma )^{p}$ is $\sigma _{1}^{p}=0$ and the power sum $\alpha ^{p}+\beta ^{p}+\gamma ^{p}=P(p)$ can be expressed in the coefficients ⁠$\sigma _{k}$⁠ with Newton's recursive scheme. It follows that the identity has integer terms and both sides divisible by prime ⁠$p.$⁠

To show that prime ⁠$p$⁠ divides ⁠$P(-p)+1$⁠ in the reverse sequence, the characteristic equation has to be reflected. The roots are then $\alpha ^{-1},\beta ^{-1},\gamma ^{-1},$ the coefficients $\sigma _{1}=-1,\sigma _{2}=0,\sigma _{3}=1,$ and the same reasoning applies.

Perrin primality test

Query 1484. The curious proposition of Chinese origin which is the subject of query 1401 would provide, if it is true, a more practical criterium than Wilson's theorem for verifying whether a given number m is prime or not; it would suffice to calculate the residues with respect to m of successive terms of the recurrence sequence
u_n = 3u_n−1 − 2u_n−2 with initial values u₀ = −1, u₁ = 0.
I have found another recurrence sequence that seems to possess the same property; it is the one whose general term is
v_n = v_n−2 + v_n−3 with initial values v₀ = 3, v₁ = 0, v₂ = 2. It is easy to demonstrate that v_n is divisible by n, if n is prime; I have verified, up to fairly high values of n, that in the opposite case it is not; but it would be interesting to know if this is really so, especially since the sequence v_n gives much less rapidly increasing numbers than the sequence u_n (for n = 17, for example, one finds u_n = 131070, v_n = 119), which leads to simpler calculations when n is a large number.
The same proof, applicable to one of the sequences, will undoubtedly bear upon the other, if the stated property is true for both: it is only a matter of discovering it.

The Perrin sequence has the Fermat property: if p is prime, P(p) ≡ P(1) ≡ 0 (mod p). However, the converse is not true: some composite n may still divide P(n). A number with this property is called a Perrin pseudoprime.

The question of the existence of Perrin pseudoprimes was considered by Malo and Jarden, but none were known until Adams and Shanks found the smallest one, 271441 = 521² (the number P(271441) has 33150 decimal digits). Jon Grantham later proved that there are infinitely many Perrin pseudoprimes.

The seventeen Perrin pseudoprimes below 10⁹ are

271441, 904631, 16532714, 24658561, 27422714, 27664033, 46672291, 102690901, 130944133, 196075949, 214038533, 517697641, 545670533, 801123451, 855073301, 903136901, 970355431.

Adams and Shanks noted that primes also satisfy the congruence P(−p) ≡ P(−1) ≡ −1 (mod p). Composites for which both properties hold are called restricted Perrin pseudoprimes. There are only nine such numbers below 10⁹.

While Perrin pseudoprimes are rare, they overlap with Fermat pseudoprimes. Of the above seventeen numbers, four are base 2 Fermatians as well. In contrast, the Lucas pseudoprimes are anti-correlated. Presumably, combining the Perrin and Lucas tests should make a primality test as strong as the reliable BPSW test which has no known pseudoprimes – though at higher computational cost.

Pseudocode

The 1982 Adams and Shanks O(log n) Perrin primality test.

Two integer arrays u(3) and v(3) are initialized to the lowest terms of the Perrin sequence, with positive indices t = 0, 1, 2 in u( ) and negative indices t = 0,−1,−2 in v( ).

The main double-and-add loop, originally devised to run on an HP-41C pocket calculator, computes P(n) mod n and the reverse P(−n) mod n at the cost of six modular squarings for each bit of n.

The subscripts of the Perrin numbers are doubled using the identity P(2t) = P²(t) − 2P(−t). The resulting gaps between P(±2t) and P(±2t ± 2) are closed by applying the defining relation P(t) = P(t − 2) + P(t − 3).

Initial values
let int u(0):= 3, u(1):= 0, u(2):= 2
let int v(0):= 3, v(1):=−1, v(2):= 1
     
Test odd positive number n
input int n
     
set int h:= most significant bit of n
     
for k:= h − 1 downto 0
     
  Double the indices of
  the six Perrin numbers.
  for i = 0, 1, 2
    temp:= u(i)^2 − 2v(i) (mod n)
    v(i):= v(i)^2 − 2u(i) (mod n)
    u(i):= temp
  endfor
     
  Copy P(2t + 2) and P(−2t − 2)
  to the array ends and use
  in the if-statement below.
  u(3):= u(2)
  v(3):= v(2)
     
  Overwrite P(2t ± 2) with P(2t ± 1)
  temp:= u(2) − u(1)
  u(2):= u(0) + temp
  u(0):= temp
     
  Overwrite P(−2t ± 2) with P(−2t ± 1)
  temp:= v(0) − v(1)
  v(0):= v(2) + temp
  v(2):= temp
     
  if n has bit k set then
    Increase the indices of
    both Perrin triples by 1.
    for i = 0, 1, 2
      u(i):= u(i + 1)
      v(i):= v(i + 1)
    endfor
  endif
     
endfor
     
Result
print v(2), v(1), v(0)
print u(0), u(1), u(2)

Successively P(−n − 1), P(−n), P(−n + 1) and P(n − 1), P(n), P(n + 1) (mod n).

If P(−n) = −1 and P(n) = 0 then n is a probable prime, that is: actually prime or a restricted Perrin pseudoprime.

Shanks et al. observed that for all restricted pseudoprimes they found, the final state of the above six registers (the "signature" of n) equals the initial state 1,−1,3, 3,0,2. The same occurs with ≈ 1/6 of all primes, so the two sets cannot be distinguished on the strength of this test alone. For those cases, they recommend to also use the Narayana-Lucas sister sequence with recurrence relation A(n) = A(n − 1) + A(n − 3) and initial values

u(0):= 3, u(1):= 1, u(2):= 1
v(0):= 3, v(1):= 0, v(2):=−2

The same doubling rule applies and the formulas for filling the gaps are

temp:= u(0) + u(1)
u(0):= u(2) − temp
u(2):= temp
     
temp:= v(2) + v(1)
v(2):= v(0) − temp
v(0):= temp

Here, n is a probable prime if A(−n) = 0 and A(n) = 1.

Kurtz et al. found no overlap between the odd pseudoprimes for the two sequences below 50∙10⁹ and supposed that 2,277,740,968,903 = 1067179 ∙ 2134357 is the smallest composite number to pass both tests.

If the third-order Pell-Lucas recurrence A(n) = 2A(n − 1) + A(n − 3) is next tried, this bound will be pushed up to 4,057,052,731,496,380,171 = 1424263447 ∙ 2848526893.

Additionally, roots of the doubling rule-congruence $x^{2}-2x\equiv P(0)\equiv 3{\pmod {n}}\,$ other than −1 or 3 expose composite numbers, like non-trivial square roots of 1 in the Miller–Rabin test. This reduces the number of pseudoprimes for each sequence by approximately one-third and is especially efficient in detecting Carmichael numbers.

C/C++ program

If the cubic primality test is implemented using 64-bit primitive data types, combining the above steps will leave no known pseudoprimes in its domain.

/************************************************
Adams & Shanks 1982 Strong cubic primality test,
max. 63-bit argument. C99/C++
-----------------------------------------------*/
#include <inttypes.h>
#include <stdint.h>
#include <stdio.h>

//initial register values for
//x^3 = x + 1, x^3 = x^2 + 1 and x^3 = 2x^2 + 1.
const int64_t reg[3][6] = {
  {1,-1,3, 3,0,2},
  {-2,0,3, 3,1,1},
  {-4,0,3, 3,2,4} };

//mask, leading zeroes, n to test
uint64_t msk, lz, n;


//a + b (mod n) with a + b < 2n
#define addm(r, a, b) r = a + b; if (r >= n) r -= n
//positive difference a - b (mod n)
#define subm(r, a, b) r = n - b + a; if (r >= n) r -= n

//double the index of u
uint64_t dblidx (uint64_t u, uint64_t v)
{
uint64_t r = 0;
   //modular squaring without overflow
   for (uint64_t a = u; a > 0; a >>= lz) {
      r = (r + (a & msk) * u) % n;
      u = (u << lz) % n;
   }
   //positive difference u^2 - 2v
   addm(u, v, v);
   subm(r, r, u);
return r;
}

//fill the gaps -/+ 1
void fill (uint64_t *a, int i, int j, int seq)
{
uint64_t u, v;
   //copy to end of array
   a[3] = a[2];

   switch (seq) {
   case 0:
      subm(u, a[j], a[1]);
      addm(a[j], a[i], u);
      a[i] = u; break;
   case 1:
      addm(u, a[i], a[1]);
      subm(a[i], a[j], u);
      a[j] = u; break;
   default:
      addm(v, a[1], a[1]);
      addm(u, a[i], v);
      addm(v, u, u);
      subm(a[i], a[j], v);
      a[j] = u; break;
   }
}

//centre and print signature triple (mod n)
#define triple(a) {              \
   for (int i = 0; i < 3; i++) { \
      if (a > n - a) a -= n;     \
      printf(" % " PRId64, a);   \
   } printf("\n"); }

/* evaluate signature
return 0 for composite n
       1 for probably prime n
       3 the test is inconclusive,
         repeat with the next sequence. */
int eval (int64_t u[], int64_t v[], int seq, int fl)
{
   //result
   triple(v[2 - i]);
   triple(u[i]);

//exceptional cases 2, 3
if (n < 4) return 1;

//necessary for primes
int sw =(v[1]==reg[seq][1]) && (u[1]==reg[seq][4]);
if (!sw) return 0;

   if (v[0]==u[0]) {
      //repeat for S-type; exposed if fl==0
      if (u[0]==3) sw = (fl) ? 3 : 0; }
   else {
uint64_t addm(d, u[0], v[0] + 3);
      sw &= d==0; }
   //sufficient for Q and I-types below 2^63
return sw;
}

//cubic primality test
int Cubtest (int seq)
{
uint64_t t = 1, n1 = n - 1;
int64_t u[4], v[4];
int sp;

   //trailing zeroes n - 1
   while ((n1 & t)==0) t <<= 1;

   //initialize registers
   for (int i = 0; i < 3; i++) {
      u[i] = reg[seq][i + 3];
      v[i] = reg[seq][2 - i];
      while (v[i] < 0) v[i] += n;
      //exceptional cases
      if (n < 5) { u[i] %= n; v[i] %= n; }
   }

   //double and add
   for (uint64_t k = 1uLL << (62 - lz); \
      k > 0; k >>= 1) {

      //strong psp property (2)
      if (k < t)
         sp = sp || ((v[1]==n1) && (u[1]==n1));

      //double
      for (int i = 0; i < 3; i++) {
   uint64_t d = dblidx(u[i], v[i]);
         v[i] = dblidx(v[i], u[i]);
         u[i] = d;
      }

      //rein in
      fill((uint64_t *) u, 0, 2, seq);
      fill((uint64_t *) v, 2, 0, seq);

      if (n & k) {
         //index + 1
         for (int i = 0; i < 3; i++) {
            u[i] = u[i + 1];
            v[i] = v[i + 1];
         }

         //strong psp property (1)
         if (k==t)
            sp =(v[1]==3) && (u[1]==3);
      }
   }
return eval(u, v, seq, sp);
}

int main(void)
{
   while (1) {
      scanf("%" SCNu64, &n);
      if (n==0) break;
      printf("\nN = %" PRIu64 "\n", n);

      //count leading zeroes
      lz = 0;
      for (msk = INT64_MIN; \
        (n & msk)==0; msk >>= 1) lz++;

      //max. 63-bit argument
      if ((lz==0) || (lz==63)) continue;
      msk = (1uLL << lz) - 1;

      int sw =-1;
      for (int i = 0; i < 3; i++) {
         sw &= Cubtest(i);
         if (sw < 2) break;
      }

      if (sw & 1)
         printf("probably prime\n");
      else
         printf("composite\n");
   }
return 0;
}

References

• Lucas, E. (1878). "Théorie des fonctions numériques simplement périodiques". American Journal of Mathematics (in French). 1 (3). Johns Hopkins University Press: 229–231. doi:10.2307/2369311. JSTOR 2369311.
• Tarry, G. (1898). "Question 1401". L'Intermédiaire des Mathématiciens. 5. Gauthier-Villars et fils: 266–267.
• Perrin, R. [in French] (1899). "Question 1484". L'Intermédiaire des Mathématiciens. 6. Gauthier-Villars et fils: 76–77.
• Malo, E. (1900). "Réponse à 1484". L'Intermédiaire des Mathématiciens. 7. Gauthier-Villars et fils: 280–282, 312–314.
• Jarden, Dov (1966). Recurring sequences (PDF) (2 ed.). Jerusalem: Riveon LeMatematika. pp. 86–93.
• Adams, William; Shanks, Daniel (1982). "Strong primality tests that are not sufficient". Mathematics of Computation. 39 (159). American Mathematical Society: 255–300. doi:10.1090/S0025-5718-1982-0658231-9. JSTOR 2007637.
• Kurtz, G.C.; Shanks, Daniel; Williams, H.C. (1986). "Fast primality tests for numbers less than 50∙10⁹". Mathematics of Computation. 46 (174). American Mathematical Society: 691–701. doi:10.1090/S0025-5718-1986-0829639-7. JSTOR 2008007.
• Füredi, Zoltán (1987). "The number of maximal independent sets in connected graphs". Journal of Graph Theory. 11 (4): 463–470. doi:10.1002/jgt.3190110403.
• Arno, Steven (1991). "A note on Perrin pseudoprimes". Mathematics of Computation. 56 (193). American Mathematical Society: 371–376. Bibcode:1991MaCom..56..371A. doi:10.1090/S0025-5718-1991-1052083-9. JSTOR 2008548.
• Grantham, Jon (2010). "There are infinitely many Perrin pseudoprimes". Journal of Number Theory. 130 (5): 1117–1128. arXiv:1903.06825. doi:10.1016/j.jnt.2009.11.008.
• Jacobsen, Dana (2020). "Pseudoprime statistics and tables". ntheory.org. Retrieved 7 March 2024. #LPSP Lucas-Selfridge
• Stephan, Holger (2020). "Millions of Perrin pseudoprimes including a few giants". arXiv:2002.03756v1 [math.NA].
• Stephan, Holger (2019), Perrin pseudoprimes. Data sets, Berlin: Weierstrass Institute, doi:10.20347/WIAS.DATA.4

External links

• Jacobsen, Dana (2016). "Perrin Primality Tests".
• Wright, Colin (2015). "Finding Perrin Pseudo-primes".
• "Perrin's Sequence". MathPages.com.
• "Lucas and Perrin Pseudoprimes". MathPages.com.
• Holzbaur, Christian (1997). "Perrin Pseudoprimes".
• Turk, Richard (2014). "The Perrin Chalkboard".