|
|
|
|
#16 by Harvey P. Dale at Sun Apr 15 15:33:58 EDT 2018
|
|
|
|
#15 by Harvey P. Dale at Sun Apr 15 15:33:55 EDT 2018
|
| MATHEMATICA
|
Select[Range[800000], Divisible[DivisorSigma[11, #]-EulerPhi[#]^11, #]&] (* Harvey P. Dale, Apr 15 2018 *)
|
| STATUS
|
approved
editing
|
|
|
|
#14 by Jon E. Schoenfield at Sat Mar 14 00:51:19 EDT 2015
|
|
|
|
#13 by Jon E. Schoenfield at Sat Mar 14 00:51:17 EDT 2015
|
| COMMENTS
|
sigma_11(n) is the sum of the 11-th11th powers of the divisors of n (A013959).
|
| STATUS
|
approved
editing
|
|
|
|
#12 by Joerg Arndt at Sun Mar 02 12:35:02 EST 2014
|
|
|
|
#11 by Wesley Ivan Hurt at Sun Mar 02 11:51:46 EST 2014
|
|
|
|
#10 by Wesley Ivan Hurt at Sun Mar 02 11:51:40 EST 2014
|
|
|
|
#9 by Wesley Ivan Hurt at Sun Mar 02 11:51:29 EST 2014
|
| MATHEMATICA
|
Do[If[Mod[DivisorSigma[11, n]-EulerPhi[n]^11, n]==0, Print[n]], {n, 1, 10^5}]
|
| CROSSREFS
|
Cf. A000010.
|
| STATUS
|
proposed
editing
|
|
|
|
#8 by Michel Marcus at Sun Mar 02 11:02:52 EST 2014
|
|
|
|
#7 by Michel Marcus at Sun Mar 02 11:02:38 EST 2014
|
| EXTENSIONS
|
Definition corrected by and more terms from Michel Marcus, Mar 02 2014
|
|
|
|