login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A328563 Nonsquarefree unitary weird numbers that are also weird numbers. 2
1554070, 1596070, 1725430, 1859830, 1952230, 2095030, 2242870, 2293270, 2553670, 2607430, 2716630, 2772070, 3116470, 3481030, 3607030, 3670870, 3800230, 3998470, 4065670, 4410070, 4623430, 4841830, 5065270, 5140870, 5371030, 5527270, 5606230, 6009430, 6597430 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

The nonsquarefree unitary weird numbers that are not weird numbers are listed in A328562.

LINKS

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

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]]];

aQ[n_] := ! SquareFreeQ[n] && Module[{d = Divisors[n]}, s = Total@d - n; m = Length[d] - 1; Total@Select[d, GCD[#, n/#] == 1 &] > 2 n && weirdQ[n, d, s, m]]; Select[Range[10^7], aQ]

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

CROSSREFS

Subsequence of A064114.

Intersection of A006037 and A292705.

Cf. A328562.

Sequence in context: A255694 A089492 A253034 * A250517 A151620 A186920

Adjacent sequences:  A328560 A328561 A328562 * A328564 A328565 A328566

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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 29 20:54 EDT 2022. Contains 354913 sequences. (Running on oeis4.)