A076079 Largest multiple of n < the n-th prime.

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

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

Cf. A076080, A076081.

Sequence in context: A051627 A023725 A250051 * A229593 A196007 A134170

Adjacent sequences: A076076 A076077 A076078 * A076080 A076081 A076082

Keyword

nonn,easy

Author

Amarnath Murthy, Oct 05 2002

Extensions

More terms from Sascha Kurz, Jan 30 2003

Status

approved