A143664 A141619 sorted and with duplicates removed.

2, 3, 5, 6, 7, 9, 11, 12, 13, 15, 17, 18, 19, 21, 23, 24, 27, 29, 30, 31, 33, 36, 37, 39, 41, 42, 43, 45, 47, 48, 51, 53, 54, 57, 59, 60, 61, 63, 66, 67, 69, 71, 72, 73, 75, 78, 79, 81, 83, 84, 87, 89, 90, 93, 96, 97, 99, 101, 102, 103, 105, 107, 109, 113, 127, 131, 137, 139

Offset

1,1

Comments

In A141619, only 3 appears twice.

Links

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

Mathematica

f[n_] := If[OddQ@n, 3 (n + 1)/2, Prime[n/2]]; Union@ Array[f, 70] (* Robert G. Wilson v, Sep 22 2008 *)

Crossrefs

Sequence in context: A242482 A085784 A085783 * A282131 A114148 A349690

Adjacent sequences: A143661 A143662 A143663 * A143665 A143666 A143667

Keyword

nonn

Author

Paul Curtz, Aug 28 2008

Extensions

Edited by N. J. A. Sloane, Aug 28 2008

More terms from Robert G. Wilson v, Sep 22 2008

Changed the title back to the original title. - Robert G. Wilson v, Oct 03 2008

Status

approved