A072166 Triangle in which first row is {1}; to get n-th row take first n numbers greater than last number in previous row which are congruent to 1 (mod n).

1, 3, 5, 7, 10, 13, 17, 21, 25, 29, 31, 36, 41, 46, 51, 55, 61, 67, 73, 79, 85, 92, 99, 106, 113, 120, 127, 134, 137, 145, 153, 161, 169, 177, 185, 193, 199, 208, 217, 226, 235, 244, 253, 262, 271, 281, 291, 301, 311, 321, 331, 341, 351, 361, 371, 375, 386, 397

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A071977 & A072467.

Sequence in context: A089108 A186355 A029899 * A077000 A195311 A184013

Adjacent sequences: A072163 A072164 A072165 * A072167 A072168 A072169

Keyword

nonn

Author

Robert G. Wilson v, Jun 28 2002

Status

approved