|
%I #11 Aug 09 2020 10:38:21
%S 2,3,5,5,7,11,17,19,23,29,347,349,353,359,367,2903,2909,2917,2927,
%T 2939,2953,15373,15377,15383,15391,15401,15413,15427,128981,128983,
%U 128987,128993,129001,129011,129023,129037,95285633,95285639,95285647,95285657
%N 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 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 2
%e 3 5
%e 5 7 11
%e 17 19 23 29
%e ...
%t 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 Cf. A016045, A092749.
%K less,nonn,tabl
%O 1,1
%A _Amarnath Murthy_, May 24 2004
%E More terms from _David Wasserman_, Jun 07 2007
|
