login
Doubly balanced primes: primes which are averages of both their immediate and their second neighbors.
16

%I #38 Jun 22 2024 18:15:51

%S 18731,25621,28069,30059,31051,44741,76913,97441,103669,106681,118831,

%T 128449,135089,182549,202999,240491,245771,249199,267569,295387,

%U 347329,372751,381401,435751,451337,455419,471521,478099,498301,516877,526441,575231,577873

%N Doubly balanced primes: primes which are averages of both their immediate and their second neighbors.

%C Could also be called overbalanced or [3,5]-balanced primes: balanced primes which are equally average of 3,5 consecutive prime neighbors as follows: a(n)=[q+a(n)+r]/3=[p+q+a(n)+r+s]/5 See 3-balanced=A006562;[3,5,7]-balanced=A081415. - _Labos Elemer_, Apr 02 2003

%C Numbers m such that A346399(m) is odd and >= 5. - _Ya-Ping Lu_, May 11 2024

%H Jud McCranie and Sebastian Petzelberger, <a href="/A051795/b051795.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Jud McCranie)

%e 25621 belongs to the sequence because 25621 = (25609 + 25633)/2 = (25603 + 25609 + 25633 + 25639)/4.

%t Transpose[Select[Partition[Prime[Range[50000]],5,1],(#[[1]]+#[[5]])/2 == (#[[2]]+#[[4]])/2 == #[[3]]&]][[3]] (* _Harvey P. Dale_, Sep 13 2013 *)

%o (Python)

%o from sympy import nextprime; p, q, r, s, t = 2, 3, 5, 7, 11

%o while t < 580000:

%o if p + t == q + s == 2*r: print(r, end = ', ')

%o p, q, r, s, t = q, r, s, t, nextprime(t) # _Ya-Ping Lu_, May 11 2024

%Y Cf. A006562, A081415, A096710, A055380, A346399.

%K easy,nonn

%O 1,1

%A _Harvey P. Dale_, Dec 10 1999