login
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).
1
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,1
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
EXAMPLE
2
3 5
5 7 11
17 19 23 29
...
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 *)
CROSSREFS
Sequence in context: A238256 A239277 A302445 * A096539 A338141 A067364
KEYWORD
less,nonn,tabl
AUTHOR
Amarnath Murthy, May 24 2004
EXTENSIONS
More terms from David Wasserman, Jun 07 2007
STATUS
approved