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!)
A335938 Bi-unitary pseudoperfect numbers (A292985) that are not exponentially odd numbers (A268335). 2
48, 60, 72, 80, 90, 150, 162, 192, 240, 288, 294, 320, 336, 360, 420, 432, 448, 504, 528, 540, 560, 576, 600, 624, 630, 648, 660, 704, 720, 726, 756, 768, 780, 792, 800, 810, 816, 832, 880, 912, 924, 936, 960, 990, 1008, 1014, 1020, 1040, 1050, 1092, 1104, 1134 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Pseudoperfect numbers (A005835) that are exponentially odd (A268335) are also bi-unitary pseudoperfect numbers (A292985), since all of their divisors are bi-unitary.

First differs from A335216 at n = 28.

LINKS

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

EXAMPLE

48 is a term since it is not exponentially odd number (48 = 2^4 * 3 and 4 is even), so not all of its divisors are bi-unitary, and it is the sum of a subset of its bi-unitary divisors: 8 + 16 + 24 = 48.

MATHEMATICA

f[n_] := Select[Divisors[n], Function[d, CoprimeQ[d, n/d]]]; bdiv[m_] := Select[Divisors[m], Last@Intersection[f@#, f[m/#]] == 1 &]; bPspQ[n_] := Module[{d = Most @ bdiv[n], x}, SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n] > 0]; expOddQ[n_] := AllTrue[Last /@ FactorInteger[n], OddQ]; Select[Range[1000], ! expOddQ[#] && bPspQ[#] &]

CROSSREFS

Subsequence of A005835 and A292985.

Cf. A222266, A268335, A295830, A335216.

Sequence in context: A259037 A231469 A261546 * A335216 A114821 A108098

Adjacent sequences:  A335935 A335936 A335937 * A335939 A335940 A335941

KEYWORD

nonn

AUTHOR

Amiram Eldar, Jun 30 2020

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 August 7 11:38 EDT 2022. Contains 355985 sequences. (Running on oeis4.)