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!)
 A064114 Unitary weird numbers: unitary abundant (A034683) but not unitary pseudoperfect (A293188). 10
 70, 4030, 5390, 5830, 10430, 10570, 10990, 11410, 11690, 11830, 12110, 12530, 12670, 13370, 13510, 13790, 13930, 14770, 15610, 15890, 16030, 16310, 16730, 16870, 17010, 17570, 17990, 18410, 18830, 18970, 19390, 19670, 19810, 20230, 20510, 21490, 21770, 21910 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Terms that are not (regular) weird (A006037): 5390, 11830, 17010, 20230, 25270, 37030, 51030, 58870, 67270, 93170, 95830, ... - Amiram Eldar, Dec 01 2018 Conjecture: All the terms are divisible by 10 (tested on the first 10^6 terms). - Amiram Eldar, Oct 19 2019 LINKS Amiram Eldar, Table of n, a(n) for n = 1..10000 EXAMPLE 70 is in the sequence since the sum of its proper unitary divisors, 1, 2, 5, 7, 10, 14, 35 is 74 > 70, yet no subset of these divisors has the sum 74. MATHEMATICA udiv[n_] := Select[Divisors[n], GCD[#, n/#] == 1 &]; weirdQ[n_] := Module[{d = Most[udiv[n]]}, If[Total[d] < n, False, c = SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; c == 0]]; Select[Range[100000], weirdQ] (* Amiram Eldar, Dec 01 2018 *) CROSSREFS Cf. A006037, A034683, A293188. Sequence in context: A275295 A306984 A292986 * A319735 A258374 A146349 Adjacent sequences:  A064111 A064112 A064113 * A064115 A064116 A064117 KEYWORD nonn AUTHOR Naohiro Nomoto, Sep 08 2001 EXTENSIONS a(25)-a(38) from Amiram Eldar, Dec 01 2018 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 June 20 13:10 EDT 2021. Contains 345164 sequences. (Running on oeis4.)