A132929 Averages of twin primes such that the sum of the lower, average and upper parts of the twin primes are averages of other twin primes.

4, 6, 60, 270, 1950, 3000, 6360, 11490, 11550, 14550, 18540, 19890, 21840, 31080, 32910, 32970, 33330, 33600, 42570, 42840, 50460, 53550, 58110, 68880, 70200, 74610, 79230, 80910, 93810, 96330, 98910, 104310, 109140, 114600, 121020, 125790

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

From Wesley Ivan Hurt, May 03 2022: (Start)

a(n) = A174920(n) + 1.

a(n) = A177336(n) - 1. (End)

Example

4 is a term since (3, 5) are twin primes, 3 + 4 + 5 = 12 and (11, 13) are also twin primes.
6 is a term since (5, 7) are twin primes, 5 + 6 + 7 = 18 and (17, 19) are also twin primes.

Mathematica

TwinPrimeAverageQ[n_]:=If[PrimeQ[n-1]&&PrimeQ[n+1], True, False](*TwinPrimeAverageQ*) lst={}; Do[If[TwinPrimeAverageQ[n], If[TwinPrimeAverageQ[3*n], (*Print[n]; *)AppendTo[lst, n]]], {n, 9!}]; lst

Crossrefs

Cf. A014574.

Cf. A174920, A177336.

Sequence in context: A089630 A058162 A244388 * A154668 A363861 A189790

Adjacent sequences: A132926 A132927 A132928 * A132930 A132931 A132932

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Aug 26 2008

Status

approved