OFFSET
1,1
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..1000
MATHEMATICA
Table[Floor[Prime[n]/n]n-Mod[Prime[n], n], {n, 60}] (* Harvey P. Dale, Dec 27 2019 *)
PROG
(PARI) { for (n=1, 1000, a=floor(prime(n) / n) * n - prime(n) % n; write("b065521.txt", n, " ", a) ) } \\ Harry J. Smith, Oct 20 2009
(PARI) a(n) = n*(prime(n)\n) - (prime(n) % n); \\ Michel Marcus, Jun 18 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 27 2001
STATUS
approved