OFFSET
1,2
LINKS
Ivan Neretin, Table of n, a(n) for n = 1..10000
MAPLE
1, seq(floor(evalf(ithprime(n)/n, 100))*n, n=2..200);
MATHEMATICA
Table[n*Quotient[Prime[n] - 1, n], {n, 60}] (* Ivan Neretin, Apr 27 2017 *)
PROG
(PARI) a(n, p=prime(n))=p-- \ n * n \\ Charles R Greathouse IV, Apr 28 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Oct 05 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 30 2003
STATUS
approved