A098726 Take three consecutive primes starting with the n-th prime. Calculate d(i,j) = abs(prime(i) - prime(j)), for all {i,j}, i.e., all possible differences. a(n) is the number of distinct differences (which can be either 3 or 2).

3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 2, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 3, 3, 3

Offset

1,1

Comments

a(n) = 2 iff the consecutive prime differences are equal.

It appears that a(n) = 2 for n in A064113. - Michel Marcus, Jul 27 2017

Links

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

Mathematica

k=3; t=Table[Abs[Prime[n+i]-Prime[n+j]], {i, 0, k-1}, {j, 0, k-1}]; u=Delete[Union[Flatten[t]], 1]; a(n)=Length[u]

Crossrefs

Cf. A080370, A054643, A064113.

Sequence in context: A343886 A120004 A079790 * A065801 A265705 A205237

Adjacent sequences: A098723 A098724 A098725 * A098727 A098728 A098729

Keyword

nonn

Author

Labos Elemer, Oct 05 2004

Extensions

Name edited by Michel Marcus, Jul 27 2017

Status

approved