%I #18 Jun 05 2018 03:51:49
%S 3313,4993,5851,9613,17971,23011,32353,36913,45121,51421,53881,54403,
%T 59611,76243,90001,91951,127591,130633,131431,134353,140401,142963,
%U 174061,229753,246913,267661,303361,311551,321313,340111,386143,435553
%N Primes p such that the differences between the 5 consecutive primes starting with p are (6,4,6,2).
%C Equivalently, p, p+6, p+10, p+16 and p+18 are consecutive primes.
%C Subsequence of A078856. - _R. J. Mathar_, May 06 2017
%H Robert Israel, <a href="/A078963/b078963.txt">Table of n, a(n) for n = 1..1000</a>
%e 23011 is in the sequence since 23011, 23017, 23021, 23027 and 23029 are consecutive primes.
%p L:= [2,3,5,7,11]:
%p count:= 0: Res:= NULL:
%p while count < 50 do
%p L:= [op(L[2..5]),nextprime(L[5])];
%p if L - [L[1]$5] = [0,6,10,16,18] then
%p count:= count+1;
%p Res:= Res, L[1];
%p fi
%p od:
%p Res; # _Robert Israel_, Jun 04 2018
%t Transpose[Select[Partition[Prime[Range[50000]],5,1],Differences[#]=={6,4,6,2}&]][[1]] (* _Harvey P. Dale_, Mar 04 2011 *)
%Y Cf. A001223, A078866, A078867, A078946-A078971, A022006, A022007.
%K nonn
%O 1,1
%A _Labos Elemer_, Dec 19 2002
%E Edited by _Dean Hickerson_, Dec 20 2002
|