|
%I #7 Nov 21 2013 12:50:06
%S 5,7,11,13,29,31,37,61,67,73,89,97,103,107,139,157,167,179,181,193,
%T 233,283,349,367,409,433,569,587,599,607,619,691,743,761,769,809,823,
%U 1021,1039,1051,1151,1201,1291,1319,1361,1373,1399,1481,1483,1499,1549,1567
%N Primes p such that p(i)*p(i+1)+p(i+2)+p(i+3) is a prime.
%C There are twin primes in the sequence: e.g (29,31); (179,181); (1481,1483).
%C There are consecutive primes also: e.g. (29,31,37); (1663,1667); (1777,1783).
%H Harvey P. Dale, <a href="/A180946/b180946.txt">Table of n, a(n) for n = 1..1000</a>
%e a(5)=29 since 29*31+37+41=977 is a prime.
%t Transpose[Select[Partition[Prime[Range[260]],4,1],PrimeQ[#[[1]]#[[2]]+ #[[3]]+ #[[4]]]&]][[1]] (* _Harvey P. Dale_, Jan 01 2012 *)
%Y Cf. A000040, A180944
%K nonn
%O 1,1
%A _Carmine Suriano_, Sep 27 2010
%E Inserted 1021 to 1201 - _R. J. Mathar_, Oct 23 2010
|
