|
Search: id:A096002
|
|
|
| A096002 |
|
Let {b(n)} = A095996; then a(n) = number of terms {b(1),b(2),...,b(n-1)} which are coprime to n. |
|
+0
1
|
|
| 1, 1, 2, 2, 4, 2, 6, 4, 4, 3, 10, 3, 12, 4, 3, 8, 16, 4, 18, 4, 4, 6, 22, 5, 8, 7, 10, 5, 28, 2, 30, 16, 5, 9
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
MATHEMATICA
|
f[n_] := f[n] = Select[Divisors[n! ], GCD[ #, n] == 1 &][[ -1]]; Table[ Length[ Select[ Range[n - 1], GCD[ f[ # ], n] == 1 &]], {n, 2, 33}]
|
|
CROSSREFS
|
Sequence in context: A090624 A099735 A091279 this_sequence A082175 A129292 A126606
Adjacent sequences: A095999 A096000 A096001 this_sequence A096003 A096004 A096005
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 19 2004, Jul 19 2004, based on a suggestion from Leroy Quet, Jun 18 2004
|
|
|
Search completed in 0.002 seconds
|
