The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A048258

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

A048258

Integers whose sum of divisors is an 8th power.
(history; published version)

#29 by Joerg Arndt at Sat Oct 07 02:41:35 EDT 2017

STATUS

reviewed

approved

#28 by Michel Marcus at Sat Oct 07 02:36:07 EDT 2017

STATUS

proposed

reviewed

#27 by Jon E. Schoenfield at Sat Oct 07 01:30:43 EDT 2017

STATUS

editing

proposed

#26 by Jon E. Schoenfield at Sat Oct 07 01:30:39 EDT 2017

EXAMPLE

Divisors(217) = {1,7,31,217}, sum = 256 = 2^8.

Divisors(57337) = {1,7,8191,57337}, sum = 65536 = 4^8.

Divisors(1676377) = {1,647,2591,1676377}, sum = 1679616 = 6^8.

MATHEMATICA

Select[Range[10^6], IntegerQ@ Surd[DivisorSigma[1, #], 8] &] (* Michael De Vlieger, Aug 01 2017, after _Harvey P. Dale_ at A048257 *)

STATUS

approved

editing

#25 by Michel Marcus at Wed Aug 02 10:45:10 EDT 2017

STATUS

editing

approved

#24 by Michel Marcus at Wed Aug 02 10:45:00 EDT 2017

EXAMPLE

Divisors(217)={1,7,31,217}, sum=256=2^8.

Divisors(57337)={1,7,8191,57337}, sum=65536=4^8.

Divisors(1676377)={1,647,2591,1676377}, sum=1679616=6^8.

STATUS

reviewed

editing

#23 by Joerg Arndt at Wed Aug 02 08:45:36 EDT 2017

STATUS

proposed

reviewed

#22 by Michael De Vlieger at Tue Aug 01 12:49:37 EDT 2017

STATUS

editing

proposed

#21 by Michael De Vlieger at Tue Aug 01 12:49:30 EDT 2017

MATHEMATICA

Select[Range[10^6], IntegerQ@ Surd[DivisorSigma[1, #], 8] &] (* Michael De Vlieger, Aug 01 2017, after _Harvey P.Dale_ at A048257 *)

STATUS

approved

editing

#20 by N. J. A. Sloane at Tue Aug 16 09:45:03 EDT 2016

STATUS

proposed

approved