%I #8 Oct 11 2022 10:38:17
%S 2,3,6,7,10,13,14,19,18,29,22,37,26,43,30,53,34,61,38,71,42,79,46,89,
%T 50,101,54,107,58,113,62,131,66,139,70,151,74,163,78,173,82,181,86,
%U 193,90,199,94,223,98,229,102,239,106,251,110,263,114,271,118,281,122,293
%N If n is odd then 2*n else prime(n).
%t Table[If[OddQ[n],2n,Prime[n]],{n,70}] (* _Harvey P. Dale_, Oct 11 2022 *)
%o (PARI) j=[]; for(n=1,150, if(n%2,j=concat(j,(2*n)),j=concat(j, prime(n)))); j
%K easy,nonn
%O 1,1
%A _Jason Earls_, Jul 14 2001