|
Search: id:A071978
|
|
| |
|
| 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; listen)
|
|
|
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: A140138 A098021 A098022 this_sequence A105705 A061409 A098749
Adjacent sequences: A071975 A071976 A071977 this_sequence 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
|
|
|
Search completed in 0.006 seconds
|
