Revision History for A055703
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing all changes.
|
|
|
|
#10 by Joerg Arndt at Sun Mar 02 12:35:51 EST 2014
|
|
|
|
#9 by Michel Marcus at Sun Mar 02 11:59:03 EST 2014
|
|
|
|
#8 by Michel Marcus at Sun Mar 02 11:58:55 EST 2014
|
| NAME
|
Numbers n such that n | Sigmasigma_9(n) - Phiphi(n)^9.
|
| STATUS
|
proposed
editing
|
|
|
|
#7 by Michel Marcus at Sun Mar 02 10:53:41 EST 2014
|
|
|
|
#6 by Michel Marcus at Sun Mar 02 10:53:32 EST 2014
|
| NAME
|
Numbers n such that n | Sigma_9(n) + ) - Phi(n)^9.
|
| COMMENTS
|
sigma_9(n) is the sum of the 9th powers of the divisors of n. (A013957).
|
| MATHEMATICA
|
Do[If[Mod[DivisorSigma[9, n]+]-EulerPhi[n]^9, n]==0, Print[n]], {n, 1, 10^5}]
|
| PROG
|
(PARI) isok(n) = !((sigma(n, 9) - eulerphi(n)^9) % n); \\ Michel Marcus, Mar 02 2014
|
| EXTENSIONS
|
Definition corrected by Michel Marcus, Mar 02 2014
|
| STATUS
|
approved
editing
|
|
|
|
#5 by Russ Cox at Fri Mar 30 17:30:21 EDT 2012
|
| AUTHOR
|
_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jun 09 2000
|
|
|
Discussion
|
Fri Mar 30
| 17:30
| OEIS Server: https://oeis.org/edit/global/156
|
|
|
|
#4 by N. J. A. Sloane at Fri Feb 24 03:00:00 EST 2006
|
| MATHEMATICA
|
Do[If[Mod[DivisorSigma[9, , n]+EulerPhi[n]^9, , n]==0, , Print[n]], {]], {n, , 1, , 10^5}]
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#3 by N. J. A. Sloane at Sat Jun 12 03:00:00 EDT 2004
|
| NAME
|
Numbers n such that n | Sigma_9(n) + Phi(n)^9.
|
| KEYWORD
|
nonn,new
nonn
|
|
|
|
#2 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003
|
| COMMENTS
|
sigma_9(n) is the sum of the 9th powers of the divisors of n.
|
| KEYWORD
|
nonn,new
nonn
|
| AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv@kspaint.com), Jun 09 2000
|
|
|
|
#1 by N. J. A. Sloane at Thu Jun 15 03:00:00 EDT 2000
|
| NAME
|
n | Sigma_9(n) + Phi(n)^9.
|
| DATA
|
1, 2, 12, 54, 76, 90, 216, 423, 514, 531, 621, 2166, 2241, 2772, 2976, 4752, 5154, 5400, 5481, 6264, 7290, 7344, 9018, 9144, 9470, 9555, 14094, 14904, 19494, 21222, 23780, 25848, 28323, 34830, 34911, 38220, 40122, 48768, 49079, 55782, 59400
|
| OFFSET
|
1,2
|
| MATHEMATICA
|
Do[If[Mod[DivisorSigma[9, n]+EulerPhi[n]^9, n]==0, Print[n]], {n, 1, 10^5}]
|
| KEYWORD
|
nonn
|
| AUTHOR
|
Robert G. Wilson v (rgwv@kspaint.com), Jun 09 2000
|
| STATUS
|
approved
|
|
|
|
|