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
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