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

 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 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.

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