login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A290490 Numbers n such that sum of proper unitary divisors of n > sum of proper unitary divisors of m for all m < n. 1
1, 2, 6, 10, 14, 18, 22, 26, 30, 42, 60, 66, 78, 102, 114, 138, 150, 174, 186, 210, 330, 390, 462, 510, 546, 570, 690, 798, 858, 870, 930, 1050, 1110, 1218, 1230, 1290, 1410, 1470, 1590, 1722, 1770, 1830, 2010, 2130, 2190, 2310, 2730, 3570, 3990, 4290, 4830, 5610, 6006, 6090, 6510, 7410, 7590, 7770 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

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

LINKS

Amiram Eldar, Table of n, a(n) for n = 1..1000

Eric Weisstein's World of Mathematics, Unitary Divisor

Index entries for sequences related to sums of divisors

MATHEMATICA

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

PROG

(PARI) sumud(n) = sumdiv(n, d, if (gcd(d, n/d)==1, d)) - n;

lista(nn) = {lasts = -1; for (n=1, nn, if ((news = sumud(n)) > lasts, print1(n, ", "); lasts = news); ); } \\ Michel Marcus, Aug 04 2017

CROSSREFS

Cf. A002182, A002093, A034090, A034448, A034460, A063919, A280013, A281782, A285614.

Sequence in context: A132417 A103747 A333662 * A182991 A278568 A250198

Adjacent sequences:  A290487 A290488 A290489 * A290491 A290492 A290493

KEYWORD

nonn

AUTHOR

Ilya Gutkovskiy, Aug 03 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 13 15:38 EDT 2021. Contains 343860 sequences. (Running on oeis4.)