|
| |
|
|
A071979
|
|
Left diagonal of A071977.
|
|
2
| |
|
|
1, 3, 7, 11, 18, 25, 43, 51, 67, 81, 104, 119, 152, 167, 199, 227, 258, 277, 330, 351, 400, 437, 484, 509, 578, 609, 667, 709, 772, 803, 914, 947, 1010, 1065, 1136, 1187, 1292, 1331, 1411, 1477, 1574, 1619, 1764, 1809, 1906, 1989, 2084, 2135, 2276, 2333
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
MATHEMATICA
| a = {1}; k = 2; Do[i = 1; While[i < n + 1, If[ GCD[k, n] == 1, a = Append[a, k]; i++ ]; k++ ], {n, 2, 55}]; Table[ a[[n(n - 1)/2 + 1]], {n, 1, 55}]
|
|
|
CROSSREFS
| Sequence in context: A049792 A062851 A178464 * A097748 A049645 A167181
Adjacent sequences: A071976 A071977 A071978 * A071980 A071981 A071982
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jun 18 2002
|
|
|
EXTENSIONS
| Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 28 2002
|
| |
|
|
