login
If n is odd then 2*n else prime(n).
0

%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