OFFSET

2,1

COMMENTS

The length of row n is A138304(n).

LINKS

T. D. Noe, Rows n=2..100 of triangle, flattened

EXAMPLE

2;

2,3;

3,5;

2,7;

2,7,11;

3,5,7,11;

MATHEMATICA

Flatten[Table[p=Prime[n]; Select[Prime[Range[n-1]], MultiplicativeOrder[ #, p]==p-1&], {n, 100}]]

CROSSREFS

KEYWORD

nonn,tabf

AUTHOR

T. D. Noe, Mar 14 2008

STATUS

approved