|
| |
|
|
A071978
|
|
Right diagonal of A071977.
|
|
2
| |
|
|
1, 5, 10, 17, 23, 41, 50, 65, 79, 103, 115, 151, 165, 197, 226, 257, 275, 329, 349, 399, 436, 483, 507, 577, 608, 665, 706, 771, 801, 913, 945, 1009, 1063, 1135, 1186, 1291, 1329, 1409, 1474, 1573, 1615, 1763, 1807, 1905, 1988, 2083, 2131, 2275, 2332, 2457
(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]], {n, 1, 55}]
|
|
|
CROSSREFS
| Sequence in context: A098021 A098022 A190550 * A105705 A061409 A193053
Adjacent sequences: A071975 A071976 A071977 * A071979 A071980 A071981
|
|
|
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
|
| |
|
|
