%I #12 Jul 02 2017 02:31:32
%S 3,41,103,293,359,379,421,653,701,733,821,883,907,911,937,1009,1237,
%T 1423,1567,1627,1637,1931,1973,2017,2129,2203,2281,2417,2459,2477,
%U 2647,2879,3209,3271,3347,3413,3539,3593,3659
%N Primes p such that 10*p is the sum of two consecutive primes.
%H Charles R Greathouse IV, <a href="/A289270/b289270.txt">Table of n, a(n) for n = 1..10000</a>
%e 10*3 = 30 = prime(6) + prime(7) = 13+17;
%e 10*41 = 410 = prime(46) + prime(47) = 199+211.
%t Select[Map[Total, Partition[Prime@ Range@ 2200, 2, 1]]/10, PrimeQ] (* _Michael De Vlieger_, Jun 30 2017 *)
%o (PARI) is(n)=isprime(n) && precprime(5*n)+nextprime(5*n)==10*n \\ _Charles R Greathouse IV_, Jul 02 2017
%Y Primes p such that m*p is the sum of two consecutive primes: A118134 (m=4), A163487 (m=6), A164132 (m=8), this sequence (m=10), A164134 (m=12).
%K nonn
%O 1,1
%A _Zak Seidov_, Jun 30 2017
|