The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A055705 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A055705

Numbers n such that n | Sigma_11(n) - Phi(n)^11.
(history; published version)

#16 by Harvey P. Dale at Sun Apr 15 15:33:58 EDT 2018

STATUS

editing

approved

#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

STATUS

editing

approved

#13 by Jon E. Schoenfield at Sat Mar 14 00:51:17 EDT 2015

COMMENTS

sigma_11(n) is the sum of the 11-th 11th powers of the divisors of n (A013959).

STATUS

approved

editing

#12 by Joerg Arndt at Sun Mar 02 12:35:02 EST 2014

STATUS

reviewed

approved

#11 by Wesley Ivan Hurt at Sun Mar 02 11:51:46 EST 2014

STATUS

proposed

reviewed

#10 by Wesley Ivan Hurt at Sun Mar 02 11:51:40 EST 2014

STATUS

editing

proposed

#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

STATUS

editing

proposed

#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