|
%I #6 Dec 11 2013 10:54:04
%S 1481,21011,22271,55331,144161,165701,166841,195731,201821,225341,
%T 247601,268811,326141,347981,361211,397751,465161,518801,536441,
%U 633461,633791,661091,768191,795791,829721,857951,876011,958541,1008851
%N Primes at which difference pattern X2424Y (X and Y >= 6) occurs in A001223.
%e 21011 is here because 21011+{2,2+4,2+4+2,2+4+2+4}=21011+{1,6,8,12}= {21013,21013,21017,21019,21023} are consecutive primes but the primes in the immediate neighborhood (21001 and 21031) are in distance 10 and 8. Thus the d-pattern "around 21011" is {10,2,4,2,4,12}.
%t patQ[n_]:=Module[{d=Differences[n]},First[d]>5&&Last[d]>5&&Most[ Rest[d]] == {2,4,2,4}]; Transpose[Select[Partition[Prime[ Range[ 80000]],7,1],patQ]] [[2]] (* _Harvey P. Dale_, Dec 11 2013 *)
%Y A001223, A052160, A052162-A052168, A022008, A047078.
%K nonn
%O 1,1
%A _Labos Elemer_, Jan 26 2000
|
