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,1

Links

Table of n, a(n) for n=1..53.

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

Crossrefs

Cf. A072468, A072469.

Sequence in context: A362777 A147791 A169647 * A062326 A198273 A066076

Adjacent sequences: A072464 A072465 A072466 * A072468 A072469 A072470

Keyword

nonn,tabl

Author

Amarnath Murthy, Jun 19 2002

Extensions

Edited by Robert G. Wilson v, Jun 25 2002

Status

approved