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,1

Links

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

Formula

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A038605, A004648.

Sequence in context: A123602 A208896 A288972 * A225700 A156188 A179930

Adjacent sequences: A065518 A065519 A065520 * A065522 A065523 A065524

Keyword

nonn

Author

Reinhard Zumkeller, Nov 27 2001

Status

approved