/-
Copyright 2026 The Formal Conjectures Authors.
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at
https://www.apache.org/licenses/LICENSE-2.0
Unless required by applicable law or agreed to in writing, software
distributed under the License is distributed on an "AS IS" BASIS,
WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
See the License for the specific language governing permissions and
limitations under the License.
-/
import FormalConjecturesUtilLeast $k \ge 1$ such that $2 \cdot n^k - 1$ is prime
$a(n) = \min {k \ge 1 \mid \text{Prime}(2 \cdot n^k - 1)}$ for $n \ge 2$.
References:
namespace OeisA119591Least $k \ge 1$ such that $2 \cdot n^k - 1$ is prime, or $0$ if no such $k$ exists.
noncomputable def a (n : ℕ) : ℕ :=
sInf {k : ℕ | 0 < k ∧ (2 * n ^ k - 1).Prime}
Value of the sequence a at 0.
All goals completed! 🐙
Value of the sequence a at 1.
@[category test, AMS 11]
theorem a_1 : a 1 = 0 := by ⊢ a 1 = 0
dsimp [a] ⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0
have h_empty : {k : ℕ | 0 < k ∧ (2 * 1 ^ k - 1).Prime} = ∅ := by ⊢ a 1 = 0 h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0
ext k k:ℕ⊢ k ∈ {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} ↔ k ∈ ∅ h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0
simp only [Set.mem_ofPred_eq, Set.mem_empty_iff_false, iff_false, not_and] k:ℕ⊢ 0 < k → ¬Nat.Prime (2 * 1 ^ k - 1) h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0
intro _ k:ℕa✝:0 < k⊢ ¬Nat.Prime (2 * 1 ^ k - 1) h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0
rw [one_pow, k:ℕa✝:0 < k⊢ ¬Nat.Prime (2 * 1 - 1) k:ℕa✝:0 < k⊢ ¬Nat.Prime 1 h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0 mul_one, k:ℕa✝:0 < k⊢ ¬Nat.Prime (2 - 1) k:ℕa✝:0 < k⊢ ¬Nat.Prime 1 h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0 show (2 - 1 : ℕ) = 1 from rfl k:ℕa✝:0 < k⊢ ¬Nat.Prime 1 k:ℕa✝:0 < k⊢ ¬Nat.Prime 1 h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0] k:ℕa✝:0 < k⊢ ¬Nat.Prime 1 h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0
exact Nat.not_prime_one h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0 h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf {k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = 0
rw [h_empty, h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ sInf ∅ = 0 All goals completed! 🐙 Nat.sInf_empty h_empty:{k | 0 < k ∧ Nat.Prime (2 * 1 ^ k - 1)} = ∅⊢ 0 = 0 All goals completed! 🐙] All goals completed! 🐙
Value of the sequence a at 2.
@[category test, AMS 11]
theorem a_2 : a 2 = 1 := by ⊢ a 2 = 1
have h_least : IsLeast {k : ℕ | 0 < k ∧ (2 * 2 ^ k - 1).Prime} 1 := by
constructor left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)}right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1
· left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1 simp only [Set.mem_ofPred_eq] left ⊢ 0 < 1 ∧ Nat.Prime (2 * 2 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1
refine ⟨by ⊢ 0 < 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1 decide All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1, by ⊢ Nat.Prime (2 * 2 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1 norm_num All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1⟩
· right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1 intro k hk right k:ℕhk:k ∈ {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)}⊢ 1 ≤ k h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1
exact hk.1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 2 ^ k - 1)} 1⊢ a 2 = 1
exact h_least.csInf_eq All goals completed! 🐙
Value of the sequence a at 3.
@[category test, AMS 11]
theorem a_3 : a 3 = 1 := by ⊢ a 3 = 1
have h_least : IsLeast {k : ℕ | 0 < k ∧ (2 * 3 ^ k - 1).Prime} 1 := by
constructor left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)}right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1
· left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1 simp only [Set.mem_ofPred_eq] left ⊢ 0 < 1 ∧ Nat.Prime (2 * 3 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1
refine ⟨by ⊢ 0 < 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1 decide All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1, by ⊢ Nat.Prime (2 * 3 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1 norm_num All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1⟩
· right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1 intro k hk right k:ℕhk:k ∈ {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)}⊢ 1 ≤ k h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1
exact hk.1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 3 ^ k - 1)} 1⊢ a 3 = 1
exact h_least.csInf_eq All goals completed! 🐙
Value of the sequence a at 4.
@[category test, AMS 11]
theorem a_4 : a 4 = 1 := by ⊢ a 4 = 1
have h_least : IsLeast {k : ℕ | 0 < k ∧ (2 * 4 ^ k - 1).Prime} 1 := by
constructor left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)}right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1
· left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1 simp only [Set.mem_ofPred_eq] left ⊢ 0 < 1 ∧ Nat.Prime (2 * 4 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1
refine ⟨by ⊢ 0 < 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1 decide All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1, by ⊢ Nat.Prime (2 * 4 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1 norm_num All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1⟩
· right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1 intro k hk right k:ℕhk:k ∈ {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)}⊢ 1 ≤ k h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1
exact hk.1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 4 ^ k - 1)} 1⊢ a 4 = 1
exact h_least.csInf_eq All goals completed! 🐙
Value of the sequence a at 5.
@[category test, AMS 11]
theorem a_5 : a 5 = 4 := by ⊢ a 5 = 4
have h_least : IsLeast {k : ℕ | 0 < k ∧ (2 * 5 ^ k - 1).Prime} 4 := by
constructor left ⊢ 4 ∈ {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)}right ⊢ 4 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
· left ⊢ 4 ∈ {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 simp only [Set.mem_ofPred_eq] left ⊢ 0 < 4 ∧ Nat.Prime (2 * 5 ^ 4 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
refine ⟨by ⊢ 0 < 4 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 decide All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4, by ⊢ Nat.Prime (2 * 5 ^ 4 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 norm_num All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4⟩
· right ⊢ 4 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 intro k hk right k:ℕhk:k ∈ {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)}⊢ 4 ≤ k h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
simp only [Set.mem_ofPred_eq] at hk right k:ℕhk:0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)⊢ 4 ≤ k h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
by_contra! h right k:ℕhk:0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)h:k < 4⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
have hk_pos := hk.1 right k:ℕhk:0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)h:k < 4hk_pos:0 < k⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
interval_cases k right.«1» k:ℕhk:0 < 1 ∧ Nat.Prime (2 * 5 ^ 1 - 1)h:1 < 4hk_pos:0 < 1⊢ Falseright.«2» k:ℕhk:0 < 2 ∧ Nat.Prime (2 * 5 ^ 2 - 1)h:2 < 4hk_pos:0 < 2⊢ Falseright.«3» k:ℕhk:0 < 3 ∧ Nat.Prime (2 * 5 ^ 3 - 1)h:3 < 4hk_pos:0 < 3⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
· right.«1» k:ℕhk:0 < 1 ∧ Nat.Prime (2 * 5 ^ 1 - 1)h:1 < 4hk_pos:0 < 1⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 have hk2 := hk.2 right.«1» k:ℕhk:0 < 1 ∧ Nat.Prime (2 * 5 ^ 1 - 1)h:1 < 4hk_pos:0 < 1hk2:Nat.Prime (2 * 5 ^ 1 - 1)⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
revert hk2 right.«1» k:ℕhk:0 < 1 ∧ Nat.Prime (2 * 5 ^ 1 - 1)h:1 < 4hk_pos:0 < 1⊢ Nat.Prime (2 * 5 ^ 1 - 1) → False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
norm_num All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
· right.«2» k:ℕhk:0 < 2 ∧ Nat.Prime (2 * 5 ^ 2 - 1)h:2 < 4hk_pos:0 < 2⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 have hk2 := hk.2 right.«2» k:ℕhk:0 < 2 ∧ Nat.Prime (2 * 5 ^ 2 - 1)h:2 < 4hk_pos:0 < 2hk2:Nat.Prime (2 * 5 ^ 2 - 1)⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
revert hk2 right.«2» k:ℕhk:0 < 2 ∧ Nat.Prime (2 * 5 ^ 2 - 1)h:2 < 4hk_pos:0 < 2⊢ Nat.Prime (2 * 5 ^ 2 - 1) → False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
norm_num All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
· right.«3» k:ℕhk:0 < 3 ∧ Nat.Prime (2 * 5 ^ 3 - 1)h:3 < 4hk_pos:0 < 3⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 have hk2 := hk.2 right.«3» k:ℕhk:0 < 3 ∧ Nat.Prime (2 * 5 ^ 3 - 1)h:3 < 4hk_pos:0 < 3hk2:Nat.Prime (2 * 5 ^ 3 - 1)⊢ False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
revert hk2 right.«3» k:ℕhk:0 < 3 ∧ Nat.Prime (2 * 5 ^ 3 - 1)h:3 < 4hk_pos:0 < 3⊢ Nat.Prime (2 * 5 ^ 3 - 1) → False h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
norm_num h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 5 ^ k - 1)} 4⊢ a 5 = 4
exact h_least.csInf_eq All goals completed! 🐙
Value of the sequence a at 6.
@[category test, AMS 11]
theorem a_6 : a 6 = 1 := by ⊢ a 6 = 1
have h_least : IsLeast {k : ℕ | 0 < k ∧ (2 * 6 ^ k - 1).Prime} 1 := by
constructor left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)}right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1
· left ⊢ 1 ∈ {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1 simp only [Set.mem_ofPred_eq] left ⊢ 0 < 1 ∧ Nat.Prime (2 * 6 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1
refine ⟨by ⊢ 0 < 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1 decide All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1, by ⊢ Nat.Prime (2 * 6 ^ 1 - 1) h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1 norm_num All goals completed! 🐙 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1⟩
· right ⊢ 1 ∈ lowerBounds {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1 intro k hk right k:ℕhk:k ∈ {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)}⊢ 1 ≤ k h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1
exact hk.1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1 h_least:IsLeast {k | 0 < k ∧ Nat.Prime (2 * 6 ^ k - 1)} 1⊢ a 6 = 1
exact h_least.csInf_eq All goals completed! 🐙Is $a(n)$ defined for all $n \ge 2$? That is, does there exist $k > 0$ such that $2 \cdot n^k - 1$ is prime?
@[category research open, AMS 11]
theorem conjecture (n : ℕ) (hn : 2 ≤ n) : ∃ k > 0, (2 * n ^ k - 1).Prime := by n:ℕhn:2 ≤ n⊢ ∃ k > 0, Nat.Prime (2 * n ^ k - 1)
sorry All goals completed! 🐙end OeisA119591