The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A290490

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

A290490

Numbers k such that (sum of proper unitary divisors of k) > (sum of proper unitary divisors of m) for all m < k.
(history; published version)

#19 by Joerg Arndt at Fri Jul 23 02:08:45 EDT 2021

STATUS

reviewed

approved

#18 by Michel Marcus at Fri Jul 23 00:38:58 EDT 2021

STATUS

proposed

reviewed

#17 by Jon E. Schoenfield at Thu Jul 22 22:49:45 EDT 2021

STATUS

editing

proposed

#16 by Jon E. Schoenfield at Thu Jul 22 22:49:41 EDT 2021

NAME

Numbers n k such that (sum of proper unitary divisors of n k) > (sum of proper unitary divisors of m ) for all m < nk.

COMMENTS

Numbers n k such that A034460(nk) > A034460(m) for all m < nk.

STATUS

approved

editing

#15 by Alois P. Heinz at Tue Jul 30 07:49:18 EDT 2019

STATUS

proposed

approved

#14 by Amiram Eldar at Tue Jul 30 07:09:56 EDT 2019

STATUS

editing

proposed

#13 by Amiram Eldar at Tue Jul 30 07:09:04 EDT 2019

LINKS

Amiram Eldar, <a href="/A290490/b290490.txt">Table of n, a(n) for n = 1..1000</a>

STATUS

approved

editing

#12 by N. J. A. Sloane at Sun Aug 06 14:09:13 EDT 2017

STATUS

proposed

approved

#11 by Ilya Gutkovskiy at Fri Aug 04 11:21:33 EDT 2017

STATUS

editing

proposed

#10 by Ilya Gutkovskiy at Fri Aug 04 11:21:15 EDT 2017

MATHEMATICA

Join[{1}, mx = 0-1; t = {}; Do[u = DivisorSum[n, # &, GCD[#, n/#] == 1 &] - n; If[u > mx, mx = u; AppendTo[t, n]], {n, 8000}]; t]

STATUS

proposed

editing