OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_] := If[OddQ@n, 3 (n + 1)/2, Prime[n/2]]; Array[f, 70] (* Robert G. Wilson v, Sep 22 2008 *)
PROG
(PARI) a(n) = if (n % 2, 3*(n+1)/2, prime(n/2)); \\ Michel Marcus, Feb 21 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Marina (kiev.marina(AT)gmail.com), Aug 23 2008
EXTENSIONS
Definition found by Alexander R. Povolotsky, Aug 26 2008
More terms based on Alexander R. Povolotsky's definition from N. J. A. Sloane, Aug 27 2008
STATUS
approved