A072467 Triangle in which n-th row contains n primes == 1 mod (n) and the first term of a row is just greater than the last term of the previous row.

2, 3, 5, 7, 13, 19, 29, 37, 41, 53, 61, 71, 101, 131, 151, 157, 163, 181, 193, 199, 211, 239, 281, 337, 379, 421, 449, 463, 521, 569, 577, 593, 601, 617, 641, 673, 739, 757, 811, 829, 883, 919, 937, 991, 1009, 1021, 1031, 1051, 1061, 1091, 1151, 1171, 1181

Offset: 1

Author

Amarnath Murthy, Jun 19 2002

Keywords

• nonn
• tabl

Crossrefs

Cf. A072468, A072469.

Programs

Mathematica

a = {2}; k = 3; Do[i = 1; While[i < n + 1, If[ PrimeQ[k] && Mod[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 10}]; a

Extensions

Edited by Robert G. Wilson v, Jun 25 2002