login
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).
0
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
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
Sequence in context: A089108 A186355 A029899 * A077000 A195311 A184013
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 28 2002
STATUS
approved