login
A143664
A141619 sorted and with duplicates removed.
0
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.
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
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