cp's OEIS Frontend

A094749 Triangle read by rows in which the n-th row contains the least set of n successive primes whose successive difference forms an arithmetic progression with common difference 2, (successive even numbers).

%I A094749 #11 Aug 09 2020 10:38:21
%S A094749 2,3,5,5,7,11,17,19,23,29,347,349,353,359,367,2903,2909,2917,2927,
%T A094749 2939,2953,15373,15377,15383,15391,15401,15413,15427,128981,128983,
%U A094749 128987,128993,129001,129011,129023,129037,95285633,95285639,95285647,95285657
%N A094749 Triangle read by rows in which the n-th row contains the least set of n successive primes whose successive difference forms an arithmetic progression with common difference 2, (successive even numbers).
%C A094749 The difference between the first two primes in each row does not have to be two; what is required is that the second differences between the primes in each row are all twos. - _Harvey P. Dale_, Aug 09 2020
%e A094749 2
%e A094749 3 5
%e A094749 5 7 11
%e A094749 17 19 23 29
%e A094749 ...
%t A094749 Module[{prs=Prime[Range[551*10^4]],nn=9},Join[{2,3,5},Table[ SelectFirst[ Partition[ prs,n,1],Union[Differences[#,2]]=={2}&],{n,3,nn}]]// Flatten] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 09 2020 *)
%Y A094749 Cf. A016045, A092749.
%K A094749 less,nonn,tabl
%O A094749 1,1
%A A094749 _Amarnath Murthy_, May 24 2004
%E A094749 More terms from _David Wasserman_, Jun 07 2007