|
|
|
|
#44 by Joerg Arndt at Sun Dec 31 06:23:31 EST 2023
|
|
|
|
#43 by Michel Marcus at Sun Dec 31 03:30:56 EST 2023
|
|
|
|
#42 by Amiram Eldar at Sun Dec 31 01:01:57 EST 2023
|
|
|
|
#41 by Amiram Eldar at Sun Dec 31 00:50:07 EST 2023
|
|
|
|
#40 by Amiram Eldar at Sun Dec 31 00:48:30 EST 2023
|
|
|
|
#39 by Amiram Eldar at Sun Dec 31 00:48:04 EST 2023
|
| LINKS
|
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PerfectPower.html">Perfect Power</a>.
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PerfectPower.html">Perfect Power</a>.
|
|
|
|
#38 by Amiram Eldar at Sun Dec 31 00:47:49 EST 2023
|
| LINKS
|
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PerfectPower.html">Perfect Power</a>>.
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DivisorFunction.html">Divisor Function</a>>.
|
| STATUS
|
approved
editing
|
|
|
|
#37 by Alois P. Heinz at Sun Aug 30 20:19:54 EDT 2020
|
|
|
|
#36 by Andrew Howroyd at Sun Aug 30 18:30:56 EDT 2020
|
|
|
|
#35 by Andrew Howroyd at Sun Aug 30 18:21:22 EDT 2020
|
| FORMULA
|
a(n) = sum (A075802(A027750(n,k)): Sum_{k=1..A000005(n)} A075802(A027750(n,k)). - Reinhard Zumkeller, Dec 13 2012
|
| PROG
|
(PARI) a(n)={my(f=factor(n)[, 2]); 1 + if(#f, sum(k=2, vecmax(f), moebius(k)*(1 - prod(i=1, #f, 1 + f[i]\k))))} \\ Andrew Howroyd, Aug 30 2020
|
| STATUS
|
approved
editing
|
|
|
|