|
Search: id:A157604
|
|
|
| A157604 |
|
a(0)=1. a(n) = the largest integer coprime to a(n-1) and less than the nth prime. |
|
+0
3
|
|
| 1, 1, 2, 3, 5, 9, 11, 16, 17, 22, 27, 29, 36, 37, 42, 43, 52, 57, 59, 66, 67, 72, 77, 82, 87, 95, 99, 101, 106, 107, 112, 125, 129, 136, 137, 148, 149, 156, 161, 166, 171, 178, 179, 190, 191, 196, 197, 210, 221, 226, 227, 232, 237, 239, 250, 253, 262, 267, 269, 276
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
MATHEMATICA
|
a[n_] := a[n] = Block[{k = Prime@n - 1}, While[ GCD[k, a[n - 1]] > 1, k-- ]; k]; a[1] = a[2] = 1; Table[ a[n], {n, 0, 60}] [From Robert G. Wilson v (rgwv(AT)rgwv.com), May 04 2009]
|
|
CROSSREFS
|
A157419, A157605, A157606
Sequence in context: A102940 A157049 A059042 this_sequence A101737 A019276 A097683
Adjacent sequences: A157601 A157602 A157603 this_sequence A157605 A157606 A157607
|
|
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
|
