A065521 a(n) = floor(prime(n) / n) * n - prime(n) mod n.

2, 1, 1, 1, 9, 11, 11, 13, 13, 11, 13, 35, 37, 41, 43, 43, 43, 47, 47, 49, 53, 53, 55, 55, 53, 55, 59, 61, 65, 67, 121, 125, 127, 133, 131, 137, 139, 141, 145, 147, 149, 155, 153, 159, 163, 169, 165, 161, 165, 171, 175, 177, 183, 181, 183, 185, 187, 193, 195, 199

Offset: 1

Author

Reinhard Zumkeller, Nov 27 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A038605, A004648.

Programs

Mathematica

Table[Floor[Prime[n]/n]n-Mod[Prime[n],n],{n,60}] (* Harvey P. Dale, Dec 27 2019 *)

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

Formula

a(n) = A038605(n) * n - A004648(n).