login
A076079
Largest multiple of n < the n-th prime.
2
1, 2, 3, 4, 10, 12, 14, 16, 18, 20, 22, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75, 78, 81, 84, 87, 90, 124, 128, 132, 136, 140, 144, 148, 152, 156, 160, 164, 168, 172, 176, 180, 184, 188, 192, 196, 200, 204, 208, 212, 216, 220, 224, 228, 232, 236, 240
OFFSET
1,2
LINKS
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
Sequence in context: A051627 A023725 A250051 * A229593 A196007 A134170
KEYWORD
nonn,easy
AUTHOR
Amarnath Murthy, Oct 05 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 30 2003
STATUS
approved