/-
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 FormalConjecturesUtilSmallest index $k > n$ such that $(p_k+p_{k+1})/(p_n+p_{n+1})$ is an integer $\ge 2$
References:
namespace OeisA167918$P(i)$ is the $i$-th prime, 1-indexed.
noncomputable def P (i : ℕ) : ℕ := Nat.nth Nat.Prime (i - 1)$S(i) = p_i + p_{i+1}$.
noncomputable def S (i : ℕ) : ℕ := P i + P (i + 1)Smallest index $k > n$ such that $S(n) \mid S(k)$.
noncomputable def a (n : ℕ) : ℕ :=
if n = 0 then 0
else sInf { k : ℕ | k > n ∧ S n ∣ S k }
Value of the sequence a at 0.
@[category test, AMS 11]
theorem a_0 : a 0 = 0 := ⊢ a 0 = 0 All goals completed! 🐙@[category API, AMS 11]
lemma P_1 : P 1 = 2 := Nat.nth_prime_zero_eq_two@[category API, AMS 11]
lemma P_2 : P 2 = 3 := Nat.nth_prime_one_eq_three@[category API, AMS 11]
lemma P_3 : P 3 = 5 := Nat.nth_prime_two_eq_five@[category API, AMS 11]
lemma P_4 : P 4 = 7 := Nat.nth_prime_three_eq_seven@[category API, AMS 11]
lemma P_5 : P 5 = 11 := Nat.nth_prime_four_eq_elevenh:Nat.Prime 13⊢ Nat.nth Nat.Prime 5 = 13
exact Nat.nth_count h All goals completed! 🐙
@[category API, AMS 11]
lemma P_7 : P 7 = 17 := by ⊢ P 7 = 17
dsimp [P] ⊢ Nat.nth Nat.Prime 6 = 17
have h : (17 : ℕ).Prime := by ⊢ P 7 = 17 h:Nat.Prime 17⊢ Nat.nth Nat.Prime 6 = 17 decide h:Nat.Prime 17⊢ Nat.nth Nat.Prime 6 = 17 h:Nat.Prime 17⊢ Nat.nth Nat.Prime 6 = 17
exact Nat.nth_count h All goals completed! 🐙
@[category API, AMS 11]
lemma P_8 : P 8 = 19 := by ⊢ P 8 = 19
dsimp [P] ⊢ Nat.nth Nat.Prime 7 = 19
have h : (19 : ℕ).Prime := by ⊢ P 8 = 19 h:Nat.Prime 19⊢ Nat.nth Nat.Prime 7 = 19 decide h:Nat.Prime 19⊢ Nat.nth Nat.Prime 7 = 19 h:Nat.Prime 19⊢ Nat.nth Nat.Prime 7 = 19
exact Nat.nth_count h All goals completed! 🐙
@[category API, AMS 11]
lemma S_1 : S 1 = 5 := by ⊢ S 1 = 5 dsimp [S] ⊢ P 1 + P 2 = 5; rw [P_1, ⊢ 2 + P 2 = 5 All goals completed! 🐙 P_2 ⊢ 2 + 3 = 5 All goals completed! 🐙] All goals completed! 🐙
@[category API, AMS 11]
lemma S_2 : S 2 = 8 := by ⊢ S 2 = 8 dsimp [S] ⊢ P 2 + P 3 = 8; rw [P_2, ⊢ 3 + P 3 = 8 All goals completed! 🐙 P_3 ⊢ 3 + 5 = 8 All goals completed! 🐙] All goals completed! 🐙
@[category API, AMS 11]
lemma S_3 : S 3 = 12 := by ⊢ S 3 = 12 dsimp [S] ⊢ P 3 + P 4 = 12; rw [P_3, ⊢ 5 + P 4 = 12 All goals completed! 🐙 P_4 ⊢ 5 + 7 = 12 All goals completed! 🐙] All goals completed! 🐙
@[category API, AMS 11]
lemma S_4 : S 4 = 18 := by ⊢ S 4 = 18 dsimp [S] ⊢ P 4 + P 5 = 18; rw [P_4, ⊢ 7 + P 5 = 18 All goals completed! 🐙 P_5 ⊢ 7 + 11 = 18 All goals completed! 🐙] All goals completed! 🐙
@[category API, AMS 11]
lemma S_5 : S 5 = 24 := by ⊢ S 5 = 24 dsimp [S] ⊢ P 5 + P 6 = 24; rw [P_5, ⊢ 11 + P 6 = 24 All goals completed! 🐙 P_6 ⊢ 11 + 13 = 24 All goals completed! 🐙] All goals completed! 🐙
@[category API, AMS 11]
lemma S_6 : S 6 = 30 := by ⊢ S 6 = 30 dsimp [S] ⊢ P 6 + P 7 = 30; rw [P_6, ⊢ 13 + P 7 = 30 All goals completed! 🐙 P_7 ⊢ 13 + 17 = 30 All goals completed! 🐙] All goals completed! 🐙
@[category API, AMS 11]
lemma S_7 : S 7 = 36 := by ⊢ S 7 = 36 dsimp [S] ⊢ P 7 + P 8 = 36; rw [P_7, ⊢ 17 + P 8 = 36 All goals completed! 🐙 P_8 ⊢ 17 + 19 = 36 All goals completed! 🐙] All goals completed! 🐙
Value of the sequence a at 1.
@[category test, AMS 11]
theorem a_1 : a 1 = 6 := by ⊢ a 1 = 6
have h_least : IsLeast { k : ℕ | k > 1 ∧ S 1 ∣ S k } 6 := by
constructor left ⊢ 6 ∈ {k | k > 1 ∧ S 1 ∣ S k}right ⊢ 6 ∈ lowerBounds {k | k > 1 ∧ S 1 ∣ S k} h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
· left ⊢ 6 ∈ {k | k > 1 ∧ S 1 ∣ S k} h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 simp only [Set.mem_ofPred_eq] left ⊢ 6 > 1 ∧ S 1 ∣ S 6 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
refine ⟨by ⊢ 6 > 1 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 decide All goals completed! 🐙 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6, ?_⟩
rw [S_1, left ⊢ 5 ∣ S 6 left ⊢ 5 ∣ 30 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 S_6 left ⊢ 5 ∣ 30left ⊢ 5 ∣ 30 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6]left ⊢ 5 ∣ 30 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
decide All goals completed! 🐙 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
· right ⊢ 6 ∈ lowerBounds {k | k > 1 ∧ S 1 ∣ S k} h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 intro k hk right k:ℕhk:k ∈ {k | k > 1 ∧ S 1 ∣ S k}⊢ 6 ≤ k h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
simp only [Set.mem_ofPred_eq] at hk right k:ℕhk:k > 1 ∧ S 1 ∣ S k⊢ 6 ≤ k h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
by_contra! h right k:ℕhk:k > 1 ∧ S 1 ∣ S kh:k < 6⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
have hk_gt := hk.1 right k:ℕhk:k > 1 ∧ S 1 ∣ S kh:k < 6hk_gt:k > 1⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
interval_cases k right.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1⊢ Falseright.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1⊢ Falseright.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1⊢ Falseright.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
· right.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 have hdiv := hk.2 right.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1hdiv:S 1 ∣ S 2⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
rw [S_1, right.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1hdiv:5 ∣ S 2⊢ False right.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1hdiv:5 ∣ 8⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 S_2 right.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1hdiv:5 ∣ 8⊢ Falseright.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1hdiv:5 ∣ 8⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6] at hdivright.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1hdiv:5 ∣ 8⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
revert hdiv right.«2» k:ℕhk:2 > 1 ∧ S 1 ∣ S 2h:2 < 6hk_gt:2 > 1⊢ 5 ∣ 8 → False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6; decide All goals completed! 🐙 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
· right.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 have hdiv := hk.2 right.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1hdiv:S 1 ∣ S 3⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
rw [S_1, right.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1hdiv:5 ∣ S 3⊢ False right.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1hdiv:5 ∣ 12⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 S_3 right.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1hdiv:5 ∣ 12⊢ Falseright.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1hdiv:5 ∣ 12⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6] at hdivright.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1hdiv:5 ∣ 12⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
revert hdiv right.«3» k:ℕhk:3 > 1 ∧ S 1 ∣ S 3h:3 < 6hk_gt:3 > 1⊢ 5 ∣ 12 → False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6; decide All goals completed! 🐙 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
· right.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 have hdiv := hk.2 right.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1hdiv:S 1 ∣ S 4⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
rw [S_1, right.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1hdiv:5 ∣ S 4⊢ False right.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1hdiv:5 ∣ 18⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 S_4 right.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1hdiv:5 ∣ 18⊢ Falseright.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1hdiv:5 ∣ 18⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6] at hdivright.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1hdiv:5 ∣ 18⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
revert hdiv right.«4» k:ℕhk:4 > 1 ∧ S 1 ∣ S 4h:4 < 6hk_gt:4 > 1⊢ 5 ∣ 18 → False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6; decide All goals completed! 🐙 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
· right.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 have hdiv := hk.2 right.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1hdiv:S 1 ∣ S 5⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
rw [S_1, right.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1hdiv:5 ∣ S 5⊢ False right.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1hdiv:5 ∣ 24⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 S_5 right.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1hdiv:5 ∣ 24⊢ Falseright.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1hdiv:5 ∣ 24⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6] at hdivright.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1hdiv:5 ∣ 24⊢ False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
revert hdiv right.«5» k:ℕhk:5 > 1 ∧ S 1 ∣ S 5h:5 < 6hk_gt:5 > 1⊢ 5 ∣ 24 → False h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6; decide h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ a 1 = 6
have ha1 : a 1 = sInf { k : ℕ | k > 1 ∧ S 1 ∣ S k } := by
unfold a h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6⊢ (if 1 = 0 then 0 else sInf {k | k > 1 ∧ S 1 ∣ S k}) = sInf {k | k > 1 ∧ S 1 ∣ S k} h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6ha1:a 1 = sInf {k | k > 1 ∧ S 1 ∣ S k}⊢ a 1 = 6; split isTrue h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6h✝:1 = 0⊢ 0 = sInf {k | k > 1 ∧ S 1 ∣ S k}isFalse h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6h✝:¬1 = 0⊢ sInf {k | k > 1 ∧ S 1 ∣ S k} = sInf {k | k > 1 ∧ S 1 ∣ S k} h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6ha1:a 1 = sInf {k | k > 1 ∧ S 1 ∣ S k}⊢ a 1 = 6 <;> [omega All goals completed! 🐙 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6ha1:a 1 = sInf {k | k > 1 ∧ S 1 ∣ S k}⊢ a 1 = 6; rfl All goals completed! 🐙 h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6ha1:a 1 = sInf {k | k > 1 ∧ S 1 ∣ S k}⊢ a 1 = 6] h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6ha1:a 1 = sInf {k | k > 1 ∧ S 1 ∣ S k}⊢ a 1 = 6
rw [ha1, h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6ha1:a 1 = sInf {k | k > 1 ∧ S 1 ∣ S k}⊢ sInf {k | k > 1 ∧ S 1 ∣ S k} = 6 All goals completed! 🐙 h_least.csInf_eq h_least:IsLeast {k | k > 1 ∧ S 1 ∣ S k} 6ha1:a 1 = sInf {k | k > 1 ∧ S 1 ∣ S k}⊢ 6 = 6 All goals completed! 🐙] All goals completed! 🐙
Value of the sequence a at 2.
@[category test, AMS 11]
theorem a_2 : a 2 = 5 := by ⊢ a 2 = 5
have h_least : IsLeast { k : ℕ | k > 2 ∧ S 2 ∣ S k } 5 := by
constructor left ⊢ 5 ∈ {k | k > 2 ∧ S 2 ∣ S k}right ⊢ 5 ∈ lowerBounds {k | k > 2 ∧ S 2 ∣ S k} h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
· left ⊢ 5 ∈ {k | k > 2 ∧ S 2 ∣ S k} h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 simp only [Set.mem_ofPred_eq] left ⊢ 5 > 2 ∧ S 2 ∣ S 5 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
refine ⟨by ⊢ 5 > 2 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 decide All goals completed! 🐙 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5, ?_⟩
rw [S_2, left ⊢ 8 ∣ S 5 left ⊢ 8 ∣ 24 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 S_5 left ⊢ 8 ∣ 24left ⊢ 8 ∣ 24 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5]left ⊢ 8 ∣ 24 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
decide All goals completed! 🐙 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
· right ⊢ 5 ∈ lowerBounds {k | k > 2 ∧ S 2 ∣ S k} h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 intro k hk right k:ℕhk:k ∈ {k | k > 2 ∧ S 2 ∣ S k}⊢ 5 ≤ k h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
simp only [Set.mem_ofPred_eq] at hk right k:ℕhk:k > 2 ∧ S 2 ∣ S k⊢ 5 ≤ k h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
by_contra! h right k:ℕhk:k > 2 ∧ S 2 ∣ S kh:k < 5⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
have hk_gt := hk.1 right k:ℕhk:k > 2 ∧ S 2 ∣ S kh:k < 5hk_gt:k > 2⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
interval_cases k right.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2⊢ Falseright.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
· right.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 have hdiv := hk.2 right.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2hdiv:S 2 ∣ S 3⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
rw [S_2, right.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2hdiv:8 ∣ S 3⊢ False right.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2hdiv:8 ∣ 12⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 S_3 right.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2hdiv:8 ∣ 12⊢ Falseright.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2hdiv:8 ∣ 12⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5] at hdivright.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2hdiv:8 ∣ 12⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
revert hdiv right.«3» k:ℕhk:3 > 2 ∧ S 2 ∣ S 3h:3 < 5hk_gt:3 > 2⊢ 8 ∣ 12 → False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5; decide All goals completed! 🐙 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
· right.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 have hdiv := hk.2 right.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2hdiv:S 2 ∣ S 4⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
rw [S_2, right.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2hdiv:8 ∣ S 4⊢ False right.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2hdiv:8 ∣ 18⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 S_4 right.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2hdiv:8 ∣ 18⊢ Falseright.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2hdiv:8 ∣ 18⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5] at hdivright.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2hdiv:8 ∣ 18⊢ False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
revert hdiv right.«4» k:ℕhk:4 > 2 ∧ S 2 ∣ S 4h:4 < 5hk_gt:4 > 2⊢ 8 ∣ 18 → False h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5; decide h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ a 2 = 5
have ha2 : a 2 = sInf { k : ℕ | k > 2 ∧ S 2 ∣ S k } := by
unfold a h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5⊢ (if 2 = 0 then 0 else sInf {k | k > 2 ∧ S 2 ∣ S k}) = sInf {k | k > 2 ∧ S 2 ∣ S k} h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5ha2:a 2 = sInf {k | k > 2 ∧ S 2 ∣ S k}⊢ a 2 = 5; split isTrue h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5h✝:2 = 0⊢ 0 = sInf {k | k > 2 ∧ S 2 ∣ S k}isFalse h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5h✝:¬2 = 0⊢ sInf {k | k > 2 ∧ S 2 ∣ S k} = sInf {k | k > 2 ∧ S 2 ∣ S k} h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5ha2:a 2 = sInf {k | k > 2 ∧ S 2 ∣ S k}⊢ a 2 = 5 <;> [omega All goals completed! 🐙 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5ha2:a 2 = sInf {k | k > 2 ∧ S 2 ∣ S k}⊢ a 2 = 5; rfl All goals completed! 🐙 h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5ha2:a 2 = sInf {k | k > 2 ∧ S 2 ∣ S k}⊢ a 2 = 5] h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5ha2:a 2 = sInf {k | k > 2 ∧ S 2 ∣ S k}⊢ a 2 = 5
rw [ha2, h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5ha2:a 2 = sInf {k | k > 2 ∧ S 2 ∣ S k}⊢ sInf {k | k > 2 ∧ S 2 ∣ S k} = 5 All goals completed! 🐙 h_least.csInf_eq h_least:IsLeast {k | k > 2 ∧ S 2 ∣ S k} 5ha2:a 2 = sInf {k | k > 2 ∧ S 2 ∣ S k}⊢ 5 = 5 All goals completed! 🐙] All goals completed! 🐙
Value of the sequence a at 3.
@[category test, AMS 11]
theorem a_3 : a 3 = 5 := by ⊢ a 3 = 5
have h_least : IsLeast { k : ℕ | k > 3 ∧ S 3 ∣ S k } 5 := by
constructor left ⊢ 5 ∈ {k | k > 3 ∧ S 3 ∣ S k}right ⊢ 5 ∈ lowerBounds {k | k > 3 ∧ S 3 ∣ S k} h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
· left ⊢ 5 ∈ {k | k > 3 ∧ S 3 ∣ S k} h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5 simp only [Set.mem_ofPred_eq] left ⊢ 5 > 3 ∧ S 3 ∣ S 5 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
refine ⟨by ⊢ 5 > 3 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5 decide All goals completed! 🐙 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5, ?_⟩
rw [S_3, left ⊢ 12 ∣ S 5 left ⊢ 12 ∣ 24 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5 S_5 left ⊢ 12 ∣ 24left ⊢ 12 ∣ 24 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5]left ⊢ 12 ∣ 24 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
decide All goals completed! 🐙 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
· right ⊢ 5 ∈ lowerBounds {k | k > 3 ∧ S 3 ∣ S k} h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5 intro k hk right k:ℕhk:k ∈ {k | k > 3 ∧ S 3 ∣ S k}⊢ 5 ≤ k h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
simp only [Set.mem_ofPred_eq] at hk right k:ℕhk:k > 3 ∧ S 3 ∣ S k⊢ 5 ≤ k h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
by_contra! h right k:ℕhk:k > 3 ∧ S 3 ∣ S kh:k < 5⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
have hk_gt := hk.1 right k:ℕhk:k > 3 ∧ S 3 ∣ S kh:k < 5hk_gt:k > 3⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
interval_cases k right.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
· right.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5 have hdiv := hk.2 right.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3hdiv:S 3 ∣ S 4⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
rw [S_3, right.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3hdiv:12 ∣ S 4⊢ False right.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3hdiv:12 ∣ 18⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5 S_4 right.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3hdiv:12 ∣ 18⊢ Falseright.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3hdiv:12 ∣ 18⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5] at hdivright.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3hdiv:12 ∣ 18⊢ False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
revert hdiv right.«4» k:ℕhk:4 > 3 ∧ S 3 ∣ S 4h:4 < 5hk_gt:4 > 3⊢ 12 ∣ 18 → False h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5; decide h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ a 3 = 5
have ha3 : a 3 = sInf { k : ℕ | k > 3 ∧ S 3 ∣ S k } := by
unfold a h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5⊢ (if 3 = 0 then 0 else sInf {k | k > 3 ∧ S 3 ∣ S k}) = sInf {k | k > 3 ∧ S 3 ∣ S k} h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5ha3:a 3 = sInf {k | k > 3 ∧ S 3 ∣ S k}⊢ a 3 = 5; split isTrue h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5h✝:3 = 0⊢ 0 = sInf {k | k > 3 ∧ S 3 ∣ S k}isFalse h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5h✝:¬3 = 0⊢ sInf {k | k > 3 ∧ S 3 ∣ S k} = sInf {k | k > 3 ∧ S 3 ∣ S k} h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5ha3:a 3 = sInf {k | k > 3 ∧ S 3 ∣ S k}⊢ a 3 = 5 <;> [omega All goals completed! 🐙 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5ha3:a 3 = sInf {k | k > 3 ∧ S 3 ∣ S k}⊢ a 3 = 5; rfl All goals completed! 🐙 h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5ha3:a 3 = sInf {k | k > 3 ∧ S 3 ∣ S k}⊢ a 3 = 5] h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5ha3:a 3 = sInf {k | k > 3 ∧ S 3 ∣ S k}⊢ a 3 = 5
rw [ha3, h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5ha3:a 3 = sInf {k | k > 3 ∧ S 3 ∣ S k}⊢ sInf {k | k > 3 ∧ S 3 ∣ S k} = 5 All goals completed! 🐙 h_least.csInf_eq h_least:IsLeast {k | k > 3 ∧ S 3 ∣ S k} 5ha3:a 3 = sInf {k | k > 3 ∧ S 3 ∣ S k}⊢ 5 = 5 All goals completed! 🐙] All goals completed! 🐙
Value of the sequence a at 4.
@[category test, AMS 11]
theorem a_4 : a 4 = 7 := by ⊢ a 4 = 7
have h_least : IsLeast { k : ℕ | k > 4 ∧ S 4 ∣ S k } 7 := by
constructor left ⊢ 7 ∈ {k | k > 4 ∧ S 4 ∣ S k}right ⊢ 7 ∈ lowerBounds {k | k > 4 ∧ S 4 ∣ S k} h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
· left ⊢ 7 ∈ {k | k > 4 ∧ S 4 ∣ S k} h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 simp only [Set.mem_ofPred_eq] left ⊢ 7 > 4 ∧ S 4 ∣ S 7 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
refine ⟨by ⊢ 7 > 4 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 decide All goals completed! 🐙 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7, ?_⟩
rw [S_4, left ⊢ 18 ∣ S 7 left ⊢ 18 ∣ 36 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 S_7 left ⊢ 18 ∣ 36left ⊢ 18 ∣ 36 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7]left ⊢ 18 ∣ 36 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
decide All goals completed! 🐙 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
· right ⊢ 7 ∈ lowerBounds {k | k > 4 ∧ S 4 ∣ S k} h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 intro k hk right k:ℕhk:k ∈ {k | k > 4 ∧ S 4 ∣ S k}⊢ 7 ≤ k h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
simp only [Set.mem_ofPred_eq] at hk right k:ℕhk:k > 4 ∧ S 4 ∣ S k⊢ 7 ≤ k h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
by_contra! h right k:ℕhk:k > 4 ∧ S 4 ∣ S kh:k < 7⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
have hk_gt := hk.1 right k:ℕhk:k > 4 ∧ S 4 ∣ S kh:k < 7hk_gt:k > 4⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
interval_cases k right.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4⊢ Falseright.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
· right.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 have hdiv := hk.2 right.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4hdiv:S 4 ∣ S 5⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
rw [S_4, right.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4hdiv:18 ∣ S 5⊢ False right.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4hdiv:18 ∣ 24⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 S_5 right.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4hdiv:18 ∣ 24⊢ Falseright.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4hdiv:18 ∣ 24⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7] at hdivright.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4hdiv:18 ∣ 24⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
revert hdiv right.«5» k:ℕhk:5 > 4 ∧ S 4 ∣ S 5h:5 < 7hk_gt:5 > 4⊢ 18 ∣ 24 → False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7; decide All goals completed! 🐙 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
· right.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 have hdiv := hk.2 right.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4hdiv:S 4 ∣ S 6⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
rw [S_4, right.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4hdiv:18 ∣ S 6⊢ False right.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4hdiv:18 ∣ 30⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 S_6 right.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4hdiv:18 ∣ 30⊢ Falseright.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4hdiv:18 ∣ 30⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7] at hdivright.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4hdiv:18 ∣ 30⊢ False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
revert hdiv right.«6» k:ℕhk:6 > 4 ∧ S 4 ∣ S 6h:6 < 7hk_gt:6 > 4⊢ 18 ∣ 30 → False h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7; decide h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ a 4 = 7
have ha4 : a 4 = sInf { k : ℕ | k > 4 ∧ S 4 ∣ S k } := by
unfold a h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7⊢ (if 4 = 0 then 0 else sInf {k | k > 4 ∧ S 4 ∣ S k}) = sInf {k | k > 4 ∧ S 4 ∣ S k} h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7ha4:a 4 = sInf {k | k > 4 ∧ S 4 ∣ S k}⊢ a 4 = 7; split isTrue h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7h✝:4 = 0⊢ 0 = sInf {k | k > 4 ∧ S 4 ∣ S k}isFalse h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7h✝:¬4 = 0⊢ sInf {k | k > 4 ∧ S 4 ∣ S k} = sInf {k | k > 4 ∧ S 4 ∣ S k} h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7ha4:a 4 = sInf {k | k > 4 ∧ S 4 ∣ S k}⊢ a 4 = 7 <;> [omega All goals completed! 🐙 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7ha4:a 4 = sInf {k | k > 4 ∧ S 4 ∣ S k}⊢ a 4 = 7; rfl All goals completed! 🐙 h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7ha4:a 4 = sInf {k | k > 4 ∧ S 4 ∣ S k}⊢ a 4 = 7] h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7ha4:a 4 = sInf {k | k > 4 ∧ S 4 ∣ S k}⊢ a 4 = 7
rw [ha4, h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7ha4:a 4 = sInf {k | k > 4 ∧ S 4 ∣ S k}⊢ sInf {k | k > 4 ∧ S 4 ∣ S k} = 7 All goals completed! 🐙 h_least.csInf_eq h_least:IsLeast {k | k > 4 ∧ S 4 ∣ S k} 7ha4:a 4 = sInf {k | k > 4 ∧ S 4 ∣ S k}⊢ 7 = 7 All goals completed! 🐙] All goals completed! 🐙Conjecture: $f(n, k) = 2$ for infinitely many cases, where $k = a(n)$.
We assume $a(n) \ne 0$ (i.e., that a suitable $k > n$ always exists), as sInf evaluates to $0$
on an empty set.
@[category research open, AMS 11]
theorem conjecture1 (M : ℕ) (ha : ∀ n > 0, a n ≠ 0) :
∃ n : ℕ, n ≥ M ∧ n > 0 ∧ S (a n) = 2 * S n := by M:ℕha:∀ n > 0, OeisA167918.a n ≠ 0⊢ ∃ n ≥ M, n > 0 ∧ S (a n) = 2 * S n
sorry All goals completed! 🐙Open problem: Whether the ratio $f(n, k)$ is bounded, where $k = a(n)$.
We assume $a(n) \ne 0$ (i.e., that a suitable $k > n$ always exists), as sInf evaluates to $0$
on an empty set.
@[category research open, AMS 11]
theorem conjecture2 (ha : ∀ n > 0, a n ≠ 0) :
∃ C : ℕ, ∀ n : ℕ, n > 0 → S (a n) / S n ≤ C := by ha:∀ n > 0, OeisA167918.a n ≠ 0⊢ ∃ C, ∀ n > 0, S (OeisA167918.a n) / S n ≤ C
sorry All goals completed! 🐙end OeisA167918