A072681 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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

Expanding upon the maxima comment, repetitive subset triplets (like 3,4,3) of form (k,k+1,k) occur when the middle value is a square. - Bill McEachen, Apr 14 2025

LINKS

Reinhard 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