OFFSET
1,1
MATHEMATICA
nxt[{n_, a_}]:={n+1, NextPrime[a (n+1)/2]}; NestList[nxt, {1, 2}, 30][[All, 2]] (* Harvey P. Dale, Feb 05 2020 *)
PROG
(PARI) lista(nn) = {my(a=2); print1(a, ", "); for (n=2, nn, if (a*n % 2, a = nextprime(a*n/2), a = nextprime(a*n/2+1)); print1(a, ", "); ); } \\ Michel Marcus, Sep 15 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, May 08 2011
EXTENSIONS
More terms from Michel Marcus, Sep 15 2019
Name edited by Felix Fröhlich, Sep 15 2019
STATUS
approved