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
KEYWORD
AUTHOR
Amarnath Murthy, May 24 2004
EXTENSIONS
More terms from David Wasserman, Jun 07 2007
STATUS
approved