%I #13 Dec 27 2019 19:28:00
%S 2,1,1,1,9,11,11,13,13,11,13,35,37,41,43,43,43,47,47,49,53,53,55,55,
%T 53,55,59,61,65,67,121,125,127,133,131,137,139,141,145,147,149,155,
%U 153,159,163,169,165,161,165,171,175,177,183,181,183,185,187,193,195,199
%N a(n) = floor(prime(n) / n) * n - prime(n) mod n.
%H Harry J. Smith, <a href="/A065521/b065521.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A038605(n) * n - A004648(n).
%t Table[Floor[Prime[n]/n]n-Mod[Prime[n],n],{n,60}] (* _Harvey P. Dale_, Dec 27 2019 *)
%o (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
%o (PARI) a(n) = n*(prime(n)\n) - (prime(n) % n); \\ _Michel Marcus_, Jun 18 2018
%Y Cf. A038605, A004648.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Nov 27 2001