1,3

Table of n, a(n) for n=1..91.

f[n_]:=Module[{pn=n Prime[n]}, pn-NextPrime[pn, -1]]; Join[{0}, Array[f, 100, 2]] (* Harvey P. Dale, Jul 21 2011 *)

Cf. A107061.

Sequence in context: A177435 A087272 A299963 * A016589 A151572 A166376

Adjacent sequences: A107057 A107058 A107059 * A107061 A107062 A107063

nonn

Zak Seidov, May 10 2005

approved