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

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A290466 Unitary Zumkeller numbers: numbers k whose unitary divisors can be partitioned into two disjoint subsets whose sums are both usigma(k)/2. 5
6, 30, 42, 60, 66, 70, 78, 90, 102, 114, 138, 150, 174, 186, 210, 222, 246, 258, 282, 294, 318, 330, 354, 366, 390, 402, 420, 426, 438, 462, 474, 498, 510, 534, 546, 570, 582, 606, 618, 630, 642, 654, 660, 678, 690, 714, 726, 750, 762, 770, 780, 786, 798, 822, 834, 840, 858, 870, 894, 906 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Seemingly, a supersequence of A002827 (unitary perfect numbers) and a subsequence of A083207 (Zumkeller numbers).

LINKS

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

Eric Weisstein's World of Mathematics, Unitary Divisor Function

Wikipedia, Unitary divisor

EXAMPLE

The set of unitary divisors of 30 is {1,2,3,5,6,10,15,30}. It can be partitioned into two disjoint subsets with equal sums of elements: {5,6,10,15} and {1,2,3,30}, therefore 30 is in the sequence.

MATHEMATICA

uDiv[n_]:=Block[{d=Divisors[n]}, Select[d, GCD[#, n/#]==1&]]; uZNQ[n_]:=Module[{d=uDiv[n], t, ds, x}, ds=Plus@@d; If[Mod[ds, 2]>0, False, t=CoefficientList[Product[1+x^i, {i, d}], x]; t[[1+ds/2]]>0]]; Select[Range[10^3], uZNQ] (* combined from the code by Robert G. Wilson v at A034448 and T. D. Noe at A083207 *)

CROSSREFS

Cf. A002827, A034448 (sum of unitary divisors of n), A083207, A290467.

Sequence in context: A309312 A101937 A101939 * A293188 A080289 A175907

Adjacent sequences:  A290463 A290464 A290465 * A290467 A290468 A290469

KEYWORD

nonn

AUTHOR

Ivan N. Ianakiev, 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 January 19 15:37 EST 2020. Contains 331049 sequences. (Running on oeis4.)