|
Search: id:A157606
|
|
|
| A157606 |
|
a(1)=1. a(n) = the largest integer coprime to a(n-1) and less than n^2. |
|
+0
3
|
|
| 1, 3, 8, 15, 23, 35, 48, 61, 80, 99, 119, 143, 168, 193, 224, 255, 287, 323, 360, 397, 440, 483, 527, 575, 624, 673, 728, 783, 839, 899, 960, 1021, 1088, 1155, 1223, 1295, 1368, 1441, 1520, 1599, 1679, 1763, 1848, 1933, 2024, 2115, 2207, 2303, 2400, 2497, 2600
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
a[n_] := a[n] = Block[{k = n^2 - 1}, While[ GCD[k, a[n - 1]] > 1, k-- ]; k]; a[1] = 1; Array[a, 55] [From Robert G. Wilson v (rgwv(AT)rgwv.com), May 04 2009]
|
|
CROSSREFS
|
A157421, A157604, A157605
Sequence in context: A101711 A048982 A064356 this_sequence A086959 A083656 A013648
Adjacent sequences: A157603 A157604 A157605 this_sequence A157607 A157608 A157609
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet (q1qq2qqq3qqqq(AT)yahoo.com), Mar 02 2009
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), May 04 2009
|
|
|
Search completed in 0.002 seconds
|
