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!)
A333928 Recursive abundant numbers: numbers k such that A333926(k) > 2*k. 3
12, 18, 20, 30, 36, 42, 60, 66, 70, 78, 84, 90, 100, 102, 108, 114, 120, 126, 132, 138, 140, 144, 150, 156, 168, 174, 180, 186, 196, 198, 204, 210, 220, 222, 228, 234, 240, 246, 252, 258, 260, 270, 276, 282, 294, 300, 306, 308, 318, 324, 330, 336, 340, 342, 348 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

EXAMPLE

12 is a term since A333926(12) = 28 > 2 * 12.

MATHEMATICA

recDivQ[n_, 1] = True; recDivQ[n_, d_] := recDivQ[n, d] = Divisible[n, d] && AllTrue[FactorInteger[d], recDivQ[IntegerExponent[n, First[#]], Last[#]] &]; recDivs[n_] := Select[Divisors[n], recDivQ[n, #] &]; f[p_, e_] := 1 + Total[p^recDivs[e]]; recDivSum[1] = 1; recDivSum[n_] := Times @@ (f @@@ FactorInteger[n]); Select[Range[350], recDivSum[#] > 2*# &]

CROSSREFS

Cf. A333926, A333927.

Analogous sequences: A005101, A034683 (unitary), A064597 (nonunitary), A129575 (exponential), A129656 (infinitary), A292982 (bi-unitary).

Sequence in context: A054753 A098899 A098770 * A181487 A091191 A259980

Adjacent sequences:  A333925 A333926 A333927 * A333929 A333930 A333931

KEYWORD

nonn

AUTHOR

Amiram Eldar, Apr 10 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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 12 17:19 EDT 2021. Contains 343829 sequences. (Running on oeis4.)