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!)
A292985 Bi-unitary pseudoperfect numbers: numbers that are equal to the sum of a subset of their aliquot bi-unitary divisors. 7
6, 24, 30, 40, 42, 48, 54, 56, 60, 66, 72, 78, 80, 88, 90, 96, 102, 104, 114, 120, 138, 150, 160, 162, 168, 174, 186, 192, 210, 216, 222, 224, 240, 246, 258, 264, 270, 280, 282, 288, 294, 312, 318, 320, 330, 336, 352, 354, 360, 366, 378, 384, 390, 402, 408 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Analogous to pseudoperfect numbers (A005835) with bi-unitary sigma (A188999) instead of sigma (A000203).

LINKS

Table of n, a(n) for n=1..55.

EXAMPLE

48 is in the sequence since its bi-unitary divisors are 1, 2, 3, 6, 8, 16, 24, 48 and 48 = 8 + 16 + 24.

MATHEMATICA

f[n_] := Select[Divisors[n], Function[d, CoprimeQ[d, n/d]]]; bdiv[m_] := Select[Divisors[m], Last@Intersection[f@#, f[m/#]] == 1 &]; a = {}; n = 0; While[n < 1000, n++; d = Most[bdiv[n]]; c = SeriesCoefficient[Series[Product[1 + x^d[[i]], {i, Length[d]}], {x, 0, n}], n]; If[c > 0, AppendTo[a, n]]]; a (* after T. D. Noe at A005835 and Michael De Vlieger at A188999 *)

CROSSREFS

Cf. A005835, A188999.

Sequence in context: A249667 A114274 A335215 * A335197 A306983 A234648

Adjacent sequences:  A292982 A292983 A292984 * A292986 A292987 A292988

KEYWORD

nonn

AUTHOR

Amiram Eldar, Sep 27 2017

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 15 12:48 EDT 2021. Contains 342977 sequences. (Running on oeis4.)