A072681 a(n) = (n - A007917(n)) * (A007918(n) - n).

0, 0, 1, 0, 1, 0, 3, 4, 3, 0, 1, 0, 3, 4, 3, 0, 1, 0, 3, 4, 3, 0, 5, 8, 9, 8, 5, 0, 1, 0, 5, 8, 9, 8, 5, 0, 3, 4, 3, 0, 1, 0, 3, 4, 3, 0, 5, 8, 9, 8, 5, 0, 5, 8, 9, 8, 5, 0, 1, 0, 5, 8, 9, 8, 5, 0, 3, 4, 3, 0, 1, 0, 5, 8, 9, 8, 5, 0, 3, 4, 3, 0, 5, 8, 9, 8, 5, 0, 7, 12, 15, 16, 15, 12, 7, 0, 3, 4, 3, 0, 1, 0

Offset

2,7

Comments

a(n)=0 iff n is prime.

Local maxima occur at interprimes: a(A024675(n)) = A074927(n+1). - Reinhard Zumkeller, Mar 04 2009

Links

R. Zumkeller, Table of n, a(n) for n = 2..10000

Formula

a(n) = A064722(n) * A007920(n).

a(n) = A064722(n) * (A072680(n) - A064722(n)).

Mathematica

a[n_] := (n - NextPrime[n+1, -1])*(NextPrime[n] - n); Table[a[n], {n, 2, 103}] (* Jean-François Alcover, Jun 14 2013 *)

Crossrefs

Cf. A007917, A007918, A007920, A024675, A064722, A072680, A074927.

Sequence in context: A260965 A278214 A359601 * A244042 A318840 A318830

Adjacent sequences: A072678 A072679 A072680 * A072682 A072683 A072684

Keyword

nonn,nice,look

Author

Reinhard Zumkeller, Jul 01 2002

Status

approved