|
|
|
|
#13 by OEIS Server at Tue Dec 19 09:19:51 EST 2023
|
| LINKS
|
Amiram Eldar, <a href="/A327528/b327528_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
#12 by Michael De Vlieger at Tue Dec 19 09:19:51 EST 2023
|
|
|
Discussion
|
Tue Dec 19
| 09:19
| OEIS Server: Installed first b-file as b327528.txt.
|
|
|
|
#11 by Michel Marcus at Tue Dec 19 01:40:22 EST 2023
|
|
|
|
#10 by Amiram Eldar at Tue Dec 19 01:33:10 EST 2023
|
|
|
|
#9 by Amiram Eldar at Tue Dec 19 01:03:21 EST 2023
|
| LINKS
|
Gus Wiseman, <a href="https://docs.google.com/document/d/e/2PACX-1vSX9dPMGJhxB8rOknCGvOs6PiyhupdWNpqLsnphdgU6MEVqFBnWugAXidDhwHeKqZe_YnUqYeGOXsOk/pub">Sequences counting and encoding certain classes of multisets</a>>.
|
|
|
|
#8 by Amiram Eldar at Tue Dec 19 01:03:08 EST 2023
|
| LINKS
|
Amiram Eldar, <a href="/A327528/b327528_1.txt">Table of n, a(n) for n = 1..10000</a>
|
|
|
|
#7 by Amiram Eldar at Tue Dec 19 01:02:45 EST 2023
|
| FORMULA
|
a(n) = n / A327526(n). - Amiram Eldar, Dec 19 2023
|
| MATHEMATICA
|
a[n_] := Module[{f = FactorInteger[n], p, e}, p = f[[;; , 1]]; e = f[[;; , 2]]; n / Max@ Table[(Times @@ p[[Position[e, _?(# >= k &)] // Flatten]])^k, {k, Union[e]}]]; Array[a, 100] (* Amiram Eldar, Dec 19 2023 *)
|
| CROSSREFS
|
Cf. A000005, A000961, A005117, A006530, A007947, A071625, A072774, A112798, A327526.
|
| STATUS
|
approved
editing
|
|
|
|
#6 by Susanna Cuyler at Wed Sep 18 04:57:27 EDT 2019
|
|
|
|
#5 by Gus Wiseman at Wed Sep 18 03:29:15 EDT 2019
|
|
|
|
#4 by Gus Wiseman at Wed Sep 18 03:28:39 EDT 2019
|
| EXAMPLE
|
The uniform divisors of 40 are {1, 2, 4, 5, 8, 10}, so a(40) = 40/10 = 4.
|
|
|
|