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.

Showing 1-4 of 4 results.

A264137 Largest prime factor of the n-th Pell number, A000129(n).

Original entry on oeis.org

2, 5, 3, 29, 7, 13, 17, 197, 41, 5741, 11, 33461, 239, 269, 577, 8297, 199, 179057, 59, 45697, 5741, 982789, 1153, 29201, 33461, 146449, 337, 44560482149, 269, 3272609, 665857, 52734529, 15607, 1800193921, 199, 1101341, 9369319, 4605197, 5521, 1746860020068409
Offset: 2

Views

Author

Jon E. Schoenfield, Dec 29 2015

Keywords

Comments

First differs from A246556 at n = 17. Since Pell(17) = 1136689 = 137 * 8297, we find that 137 does not divide any earlier Pell number, and hence A246556(17) = 137, but 8297 is also prime, and so a(17) = 8297.

Crossrefs

Programs

  • Mathematica
    Table[FactorInteger[Fibonacci[n, 2]][[-1, 1]], {n, 25}] (* Alonso del Arte, Dec 10 2016 *)
    FactorInteger[#][[-1,1]]&/@LinearRecurrence[{2,1},{2,5},60] (* Harvey P. Dale, Jun 08 2019 *)
  • PARI
    a(n) = vecmax(factor(([2, 1; 1, 0]^n)[2, 1])[,1]); \\ Daniel Suteu, May 26 2022

Formula

a(n) = A006530(A000129(n)).

A364820 a(n) is the smallest prime factor of the n-th Pell number A000129(n).

Original entry on oeis.org

2, 5, 2, 29, 2, 13, 2, 5, 2, 5741, 2, 33461, 2, 5, 2, 137, 2, 37, 2, 5, 2, 229, 2, 29, 2, 5, 2, 44560482149, 2, 61, 2, 5, 2, 13, 2, 593, 2, 5, 2, 1746860020068409, 2, 11437, 2, 5, 2, 3761, 2, 13, 2, 5, 2, 68480406462161287469, 2, 29, 2, 5, 2
Offset: 2

Views

Author

Sean A. Irvine, Oct 21 2023

Keywords

Crossrefs

Cf. A246556 (smallest primitive factor), A264137, A280104, A060383, A020639.

Programs

  • Mathematica
    FactorInteger[#][[1, 1]] & /@ LinearRecurrence[{2, 1}, {2, 5}, 57] (* Amiram Eldar, Oct 21 2023 *)

Formula

a(n) = A020639(A000129(n)).

A285314 Numbers k such that the k-th term of some (generalized) Lucas sequence has no primitive prime factor.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 10, 12, 13, 18, 30
Offset: 1

Views

Author

Tomohiro Yamada, Apr 17 2017

Keywords

Comments

For a generalized Lucas sequence {U(n)} = {(a^n - b^n)/(a - b)}, where a + b and ab are nonzero coprime integers and (a/b) is not a root of unity, a prime factor of the n-th term of some Lucas sequence U(n) is called primitive if it does not divide U(r) for any r < n.
Let P = a + b > 0, Q = ab and D = P^2 - 4Q = (a - b)^2. In the case a, b are real (equivalently, D > 0), Carmichael shows that, if n <> 1, 2, 6, then U(n) has at least one primitive prime factor not dividing D except U(3) ((P, Q, D) = (1, -2, 9), (1, -1, 5)), U(5) ((P, Q, D) = (1, -1, 5)) and U(12) ((P, Q, D) = (1, -1, 5)).
Voutier determines the cases U(n) has no primitive prime factor for n = 5, 7 <= n <= 30. For n = 5, 7 <= n <= 30, any prime factor of U(n) divides D or U_r for some r < n in the following cases:
U(5): (P, Q, D) = (1, -1, 5)*, (1, 2, -7), (1, 3, -11), (1, 4, -15)*, (2, 11, -40)*, (12, 55, -76), (12, 377, -1364),
U(7): (P, Q, D) = (1, 2, -7)*, (1, 5, -19),
U(8): (P, Q, D) = (1, 2, -7), (2, 7, -24),
U(10): (P, Q, D) = (2, 3, -8), (5, 7, -3), (5, 18, -47),
U(12): (P, Q, D) = (1, -1, 5), (1, 2, -7), (1, 3, -11), (1, 4, -15), (1, 5, -19), (2, 15, -56),
U(13), U(18), U(30): (P, Q, D) = (1, 2, -7).
(The symbol * indicates that any prime factor of the corresponding U(n) divides D)
Bilu, Hanrot and Voutier shows that these are all for n = 5, n >= 7. Hence this sequence is complete.
From Jianing Song, Feb 23 2019: (Start)
Let {U(n)} be a generalized Lucas sequence. If p is a prime U(p) has no primitive prime factor, then U(p) = +-1. In contrast, if k is a composite number such that U(k) has no primitive prime factor, then U(k) cannot be +-1. As a result, the possible solutions to U(k) = +-1 for some Lucas sequence are k = 1, 2, 3, 5, 7, 13.
From U(1) = 1, U(2) = P, U(3) = P^2 - Q, U(4) = P*(P^2 - 2*Q), U(6) = P*(P^2 - Q)*(P^2 - 3*Q) we can see that for k = 1, 2, 3, 4, 6, there are infinitely many Lucas sequences such that U(k) has no primitive prime factor. Also, for p = 2, 3, there are infinitely many Lucas sequences such that any prime factor of U(p) divides D.
This sequence lists also numbers k such that E(p) = k has no solution over the primes for some Lucas sequence {U(n)}, where E(p) is the entry point of {U(n)} modulo p, that is, the smallest m > 0 such that p divides U(m). (End)

Examples

			If (P, Q, D) = (1, -1, 5) (giving the Fibonacci sequence), U(12) = 144 = 2^4 * 3^2, while U(4) = 3 and U(6) = 8 = 2^3. Hence U(12) with (P, Q, D) = (1, -1, 5) has no primitive prime factor and 12 belongs to this sequence.
		

Crossrefs

Cf. A001578, A058036, A246556 (smallest primitive prime factor of Fibonacci(n), Lucas(n) and Pell(n)).
Cf. A086597, A086600 (number of primitive prime factors in Fibonacci(n) and Lucas(n)).

A247250 Indices of Pell numbers having exactly one primitive prime factor.

Original entry on oeis.org

2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 21, 24, 29, 30, 32, 33, 35, 38, 41, 42, 50, 53, 54, 56, 58, 59, 66, 69, 89, 90, 94, 95, 97, 99, 101, 104, 117, 118, 120, 135, 138, 160, 167, 181, 191, 210, 221, 237, 242, 247
Offset: 1

Views

Author

Eric Chen, Nov 29 2014

Keywords

Comments

Conjecture: The n-th Pell number A000129(n) has a primitive prime factor for all n > 1. (The n-th Fibonacci number A000045(n) has a primitive prime factor for all n except n = 0, 1, 2, 6, and 12.)
For prime p, all prime factors of Pell(p) are primitive. Hence the only primes in this sequence are the prime numbers in A096650, which gives the indices of prime Pell numbers.

Examples

			Pell(1) = 1, which has no prime factors, so 1 is not in this sequence.
Pell(4) = 12 = 2^2 * 3, but 2 is not a primitive prime factor, and 3 is the only primitive prime factor of Pell(4), so 4 is in this sequence.
Pell(5) = 29, which is a prime and the only primitive prime factor of itself, so 5 is in this sequence.
Pell(12) = 13860 = 2^2 * 3^2 * 5 * 7 * 11, but none of 2, 3, 5, 7 is a primitive prime factor, and 11 is the only primitive prime factor of Pell(12), so 12 is in this sequence.
Pell(14) = 80782 = 2 * 13^2 * 239, but neither 2 nor 13 is a primitive prime factor, and 239 is the only primitive prime factor of Pell(14), so 14 is in this sequence.
Pell(19) = 6625109 = 37 * 179057, both of which are primitive prime factors of Pell(19), so 19 is not in this sequence.
		

Crossrefs

Cf. A152012 (for Fibonacci numbers).

Programs

  • Mathematica
    Select[Range[1000], PrimePowerQ[(1-Sqrt[2])^EulerPhi[#]*Cyclotomic[#, (1+Sqrt[2])/(1-Sqrt[2])]/GCD[Cyclotomic[#, (1+Sqrt[2])/(1-Sqrt[2])], # ]]&] - Eric Chen, Dec 12 2014
    pell[n_] := pell[n] = ((1+Sqrt[2])^n-(1-Sqrt[2])^n )/(2*Sqrt[2]) // Round; primitivePrimeFactors[n_] := Cases[FactorInteger[pell[n]][[All, 1]], p_ /; And @@ (GCD[p, #] == 1 & /@ Array[pell, n-1])]; Reap[For[n=2, n <= 200, n++, If[Length[primitivePrimeFactors[n]] == 1, Print[n]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Dec 12 2014 *)
  • PARI
    pell(n) = imag((1 + quadgen(8))^n);
    isok(pf, vp) = sum(i=1, #pf, vecsearch(vp, pf[i]) == 0) == 1;
    lista(nn) = {vp = []; for (n=2, nn, pf = factor(pell(n))[,1]; if (isok(pf, vp), print1(n, ", ")); vp = vecsort(concat(vp, pf),, 8););} \\ Michel Marcus, Nov 29 2014

Extensions

Two incorrect terms (72 and 110) deleted by Colin Barker, Nov 29 2014
More terms from Colin Barker, Nov 30 2014
Showing 1-4 of 4 results.