OFFSET
1,1
COMMENTS
Conjectures: 1) The sequence is a permutation of prime numbers; 2) k = k(n) runs all positive integers.
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
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 (* Ivan Neretin, Dec 04 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Mar 10 2010
EXTENSIONS
Terms from a(22) onwards corrected by Ivan Neretin, Dec 04 2018
STATUS
approved