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