A060361 a(n) = { Smallest prime > k } - k, where k = lcm(1..n).

1, 1, 1, 1, 1, 1, 1, 1, 13, 1, 1, 13, 13, 31, 31, 31, 23, 19, 19, 1, 1, 1, 1, 41, 41, 1, 1, 31, 31, 43, 43, 1, 41, 41, 41, 41, 41, 53, 53, 53, 53, 79, 79, 59, 59, 59, 59, 1, 1, 59, 59, 59, 59, 61, 61, 61, 61, 61, 61, 113, 113, 97, 97, 97, 179, 179, 179, 73

Offset

0,9

Links

Table of n, a(n) for n=0..67.

Mathematica

f[n_]:=Module[{lcm=LCM@@Range[n]}, NextPrime[lcm]-lcm]; Join[{1}, Array[f, 70]] (* Harvey P. Dale, May 20 2011 *)

Prog

(PARI) a(n) = my(lc = lcm([1..n])); nextprime(lc+1) - lc; \\ Michel Marcus, Mar 18 2018

Crossrefs

Sequence in context: A010226 A066834 A010225 * A141596 A108477 A176204

Adjacent sequences: A060358 A060359 A060360 * A060362 A060363 A060364

Keyword

nonn

Author

N. J. A. Sloane, Apr 01 2001

Status

approved