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!)
 A329190 Weird admirable numbers: numbers that are both weird (A006037) and admirable (A111592). 3
 70, 836, 4030, 5830, 7192, 7912, 10792, 17272, 45356, 83312, 91388, 113072, 243892, 254012, 388076, 786208, 1713592, 4145216, 4199030, 4632896, 9928792, 11547352, 13086016, 15126992, 17999992, 29465852, 29581424, 34869056, 74899952, 89283592, 95327216, 120888092 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Admirable numbers that are not pseudoperfect (A005835). Differs from A258250 at n >= 13. LINKS Amiram Eldar, Table of n, a(n) for n = 1..51 (terms below 10^10) MATHEMATICA admQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && EvenQ[ab] && ab/2 < n && Divisible[n, ab/2]; weirdQ[n_] := Module[{d = Most[Divisors[n]]}, If[Total[d] <= n, False, SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n] == 0]]; Select[Range[10000], admQ[#] && weirdQ[#] &] CROSSREFS Intersection of A006037 and A111592. Cf. A005835, A258250. Sequence in context: A230897 A006037 A002975 * A258250 A335008 A258882 Adjacent sequences:  A329187 A329188 A329189 * A329191 A329192 A329193 KEYWORD nonn AUTHOR Amiram Eldar, Nov 07 2019 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 August 3 02:48 EDT 2021. Contains 346435 sequences. (Running on oeis4.)