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
Links
- Ivan Neretin, Table of n, a(n) for n = 1..10000
Programs
-
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 *) -
PARI
a(n,p=prime(n))=p-- \ n * n \\ Charles R Greathouse IV, Apr 28 2017
Extensions
More terms from Sascha Kurz, Jan 30 2003