OFFSET
1,1
MATHEMATICA
Table[If[OddQ[n], 2n, Prime[n]], {n, 70}] (* Harvey P. Dale, Oct 11 2022 *)
PROG
(PARI) j=[]; for(n=1, 150, if(n%2, j=concat(j, (2*n)), j=concat(j, prime(n)))); j
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 14 2001
STATUS
approved