A068902 Least multiple of n not less than the n-th prime.

2, 4, 6, 8, 15, 18, 21, 24, 27, 30, 33, 48, 52, 56, 60, 64, 68, 72, 76, 80, 84, 88, 92, 96, 100, 104, 108, 112, 116, 120, 155, 160, 165, 170, 175, 180, 185, 190, 195, 200, 205, 210, 215, 220, 225, 230, 235, 240, 245, 250, 255, 260

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Formula

a(n) = A000040(n) + A068901(n).

a(n) = n*ceiling(prime(n)/n). - Vladeta Jovovic, Apr 06 2003

Maple

seq(n*ceil(ithprime(n)/n), n=1..60); # Robert Israel, Feb 27 2017

Mathematica

Table[n Ceiling[Prime@ n/n], {n, 60}] (* Michael De Vlieger, Feb 27 2017 *)

Prog

(PARI) vector(60, n, n*ceil(prime(n)/n) ) \\ G. C. Greubel, Jun 09 2019
(Magma) [n*Ceiling(NthPrime(n)/n): n in [1..60]]; // G. C. Greubel, Jun 09 2019
(Sage) [n*ceil(nth_prime(n)/n) for n in (1..60)] # G. C. Greubel, Jun 09 2019

Crossrefs

Sequence in context: A359090 A167229 A192333 * A269332 A077569 A270140

Adjacent sequences: A068899 A068900 A068901 * A068903 A068904 A068905

Keyword

nonn

Author

Reinhard Zumkeller, Mar 05 2002

Status

approved