A260179 - OEIS

%I #19 May 06 2020 01:47:22

%S 17,23,71,149,173,233,331,359,389,419,431,503,677,727,839,853,937,971,

%T 1019,1201,1229,1277,1327,2213,2221,2237,2593,2689,2797,2999,3019,

%U 3167,3221,3253,3821,3823,4027,4111,4201,4219,4231,4801,5147,5309,5407,5437

%N Primes pr(k) such that pr(k)+pr(k+1)+pr(k+6)+pr(k+7) = pr(k+2)+pr(k+3)+pr(k+4)+pr(k+5).

%H Amiram Eldar, <a href="/A260179/b260179.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..500 from R. J. Mathar)

%e Starting from 71, the eight consecutive primes are 71, 73, 79, 83, 89, 97, 101, 103; and they satisfy 71+73+101+103=79+83+89+97, so 71 is in the sequence.

%p n := 1 ;

%p Lp := [[0,1,6,7],[2,3,4,5]] ;

%p for i from 1 do

%p     if add(ithprime(i+j),j=op(1,Lp)) = add(ithprime(i+j),j=op(2,Lp)) then

%p         printf("%d %d\n",n,ithprime(i)) ;

%p         n := n+1 ;

%p     end if;

%p end do: # _R. J. Mathar_, Aug 06 2015

%t pr8Q[lst_]:=With[{tadr=TakeDrop[lst,{3,6}]},Total[tadr[[1]]] == Total[ tadr[[2]]]]; Transpose[Select[Partition[Prime[ Range[ 1000]],8,1], pr8Q]][[1]] (* The program uses the TakeDrop function from Mathematica version 10.2 *)

%Y Cf. A022885.

%K nonn

%O 1,1

%A _Harvey P. Dale_, Jul 17 2015