OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..500 from R. J. Mathar)
EXAMPLE
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.
MAPLE
n := 1 ;
Lp := [[0, 1, 6, 7], [2, 3, 4, 5]] ;
for i from 1 do
if add(ithprime(i+j), j=op(1, Lp)) = add(ithprime(i+j), j=op(2, Lp)) then
printf("%d %d\n", n, ithprime(i)) ;
n := n+1 ;
end if;
end do: # R. J. Mathar, Aug 06 2015
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Harvey P. Dale, Jul 17 2015
STATUS
approved