OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
MATHEMATICA
fc[n_]:=Module[{c=Prime[n]/n}, (Floor[c]Ceiling[c])/2]; Array[fc, 80] (* Harvey P. Dale, May 20 2015 *)
PROG
(PARI) vector(80, n, floor(prime(n)/n)*ceil(prime(n)/n)/2) \\ G. C. Greubel, Jan 19 2019
(Magma) [Floor(NthPrime(n)/n)*Ceiling(NthPrime(n)/n)/2: n in [1..80]]; // G. C. Greubel, Jan 19 2019
(Sage) [floor(nth_prime(n)/n)*ceil(nth_prime(n)/n)/2 for n in (1..80)] # G. C. Greubel, Jan 19 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 07 2003
STATUS
approved