OFFSET
1,1
COMMENTS
Conjectures: 1) The sequence is a permutation of prime numbers; 2) k = k(n) runs all positive integers.
MATHEMATICA
a = {2}; Do[k = 1; While[(d = Complement[FactorInteger[2 k a[[-1]] + 1][[All, 1]], a]) == {}, k++]; AppendTo[a, Min@d], {n, 50}]; a (* Jinyuan Wang, Feb 26 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Mar 10 2010
EXTENSIONS
More terms from Jinyuan Wang, Feb 26 2020
STATUS
approved