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).

2, 3, 5, 5, 7, 11, 17, 19, 23, 29, 347, 349, 353, 359, 367, 2903, 2909, 2917, 2927, 2939, 2953, 15373, 15377, 15383, 15391, 15401, 15413, 15427, 128981, 128983, 128987, 128993, 129001, 129011, 129023, 129037, 95285633, 95285639, 95285647, 95285657

Offset: 1

Author

Amarnath Murthy, May 24 2004

Keywords

• less
• nonn
• tabl

Comments

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

Examples

			2
3 5
5 7 11
17 19 23 29
...
		

Crossrefs

Cf. A016045, A092749.

Programs

Mathematica

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 *)

Extensions

More terms from David Wasserman, Jun 07 2007