A239746 Records in A016014.

1, 2, 3, 5, 6, 7, 10, 12, 15, 17, 24, 30, 42, 54, 57, 60, 63, 72, 74, 83, 84, 91, 96, 104, 106, 120, 123, 129, 138, 139, 144, 147, 149, 153, 155, 203, 219, 240, 245, 259

Offset: 1

Author

Zak Seidov, Mar 26 2014

Keywords

• nonn
• more

Crossrefs

Cf. A016014, A239727.

Programs

Mathematica

km = 0; Reap[Do[k = 1;  While[ ! PrimeQ[2*n*k + 1], k++]; If[k > km, km = k; Sow[k]], {n,  20000}]][[2, 1]]
lk[n_]:=Module[{k=1},While[!PrimeQ[2n k+1],k++];k];DeleteDuplicates[Array[ lk,10^7],GreaterEqual] (* Harvey P. Dale, Jun 20 2023 *)

PARI

A016014(n)=my(k); while(!isprime(2*n*k+++1), ); k
r=0; for(n=1, 1e8, t=A016014(n); if(t>r, r=t; print1(r", "))) \\ Jianing Song, Mar 09 2021, based on the program of A239727

Extensions

a(37)-a(40) from Giovanni Resta, Mar 26 2014