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!)
A328562 Unitary weird numbers (A064114) that are not weird numbers (A006037). 2
5390, 11830, 17010, 20230, 25270, 37030, 51030, 58870, 67270, 93170, 95830, 117670, 129430, 153090, 153790, 154630, 196630, 243670, 260470, 314230, 343910, 352870, 373030, 436870, 459270, 480130, 482230, 554470, 658630, 714070, 742630, 801430, 831670, 851690, 893830 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

All the terms are nonsquarefree, since unitary weird numbers that are squarefree are necessarily also weird.

Nonsquarefree unitary weird numbers that are also weird numbers are listed in A328563.

LINKS

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

MATHEMATICA

weirdQ[n_, d_, s1_, m1_] := weirdQ[n, d, s1, m1] = Module[{s = s1, m = m1}, If[m == 0, False, While[d[[m]] > n, s -= d[[m]]; m--]; d[[m]] < n && If[s > n, weirdQ[n - d[[m]], d, s - d[[m]], m - 1] && weirdQ[n, d, s - d[[m]], m - 1], s < n && m < Length[d] - 1]]];

wQ[n_] := Module[{d = Divisors[n]}, s = Total@d - n; m = Length[d] - 1; weirdQ[n, d, s, m]];

uQ[n_] := Module[{d = Select[Divisors[n], GCD[#, n/#] == 1 &]}, s = Total@d - n; m = Length[d] - 1; weirdQ[n, d, s, m]];

aQ[n_] := uQ[n] && ! wQ[n]; Select[Range[10^6], aQ]

(* after M. F. Hasler's pari code at A006037 *)

CROSSREFS

Cf. A005117, A006037, A013929, A064114, A292705, A328563.

Sequence in context: A057850 A058325 A224688 * A126117 A190106 A252572

Adjacent sequences:  A328559 A328560 A328561 * A328563 A328564 A328565

KEYWORD

nonn

AUTHOR

Amiram Eldar, Oct 19 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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 1 01:52 EDT 2020. Contains 333153 sequences. (Running on oeis4.)