A132929 - OEIS

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.

%I #11 May 03 2022 10:44:28

%S 4,6,60,270,1950,3000,6360,11490,11550,14550,18540,19890,21840,31080,

%T 32910,32970,33330,33600,42570,42840,50460,53550,58110,68880,70200,

%U 74610,79230,80910,93810,96330,98910,104310,109140,114600,121020,125790

%N 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.

%H Amiram Eldar, <a href="/A132929/b132929.txt">Table of n, a(n) for n = 1..10000</a>

%F From _Wesley Ivan Hurt_, May 03 2022: (Start)

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

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

%e 4 is a term since (3, 5) are twin primes, 3 + 4 + 5 = 12 and (11, 13) are also twin primes.

%e 6 is a term since (5, 7) are twin primes, 5 + 6 + 7 = 18 and (17, 19) are also twin primes.

%t 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

%Y Cf. A014574.

%Y Cf. A174920, A177336.

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Aug 26 2008