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

2, 3, 6, 7, 10, 13, 14, 19, 18, 29, 22, 37, 26, 43, 30, 53, 34, 61, 38, 71, 42, 79, 46, 89, 50, 101, 54, 107, 58, 113, 62, 131, 66, 139, 70, 151, 74, 163, 78, 173, 82, 181, 86, 193, 90, 199, 94, 223, 98, 229, 102, 239, 106, 251, 110, 263, 114, 271, 118, 281, 122, 293

Offset

1,1

Links

Table of n, a(n) for n=1..62.

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

Sequence in context: A330572 A287241 A331075 * A069813 A266534 A293392

Adjacent sequences: A062717 A062718 A062719 * A062721 A062722 A062723

Keyword

easy,nonn

Author

Jason Earls, Jul 14 2001

Status

approved