|
%I #12 May 01 2018 07:11:35
%S 31,41,61,67,97,103,127,139,157,191,199,211,229,263,307,331,379,421,
%T 433,479,487,509,547,563,601,659,691,811,829,863,911,929,953,971,1009,
%U 1051,1093,1201,1249,1291,1303,1453,1471,1571,1693,1741,1747,1789,1801,1873
%N Primes of the form prime(k) + prime(k+5) + 1.
%H Shawn A. Broyles, <a href="/A159045/b159045.txt">Table of n, a(n) for n = 1..1000</a>
%e 31 = prime(11) = prime(4) + prime(9) + 1,
%e 41 = prime(13) = prime(5) + prime(10) + 1, and
%e 61 = prime(18) = prime(8) + prime(13) + 1 are in the sequence.
%t lst={};Do[p1=Prime[n];p6=Prime[n+5];p=p1+p6+1;If[PrimeQ[p],AppendTo[lst, p]],{n,6!}];lst
%o (PARI) lista(nn) = {for (n=1, nn, if (isprime(p = prime(n) + prime(n+5) + 1), print1(p, ", ")););} \\ _Michel Marcus_, May 01 2018
%Y Cf. A159043, A159044, A000040.
%K nonn,easy
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Apr 03 2009
%E Examples edited by _R. J. Mathar_, Apr 06 2009
|
