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!)
A333951 Numbers k such that both k and k+1 are recursive abundant numbers (A333928). 2
56924, 82004, 84524, 109395, 158235, 241604, 261260, 266475, 285075, 361844, 442035, 445004, 469755, 611324, 666315, 694484, 712844, 922635, 968715, 971684, 1102724, 1172115, 1190475, 1199835, 1239524, 1304324, 1338435, 1430715, 1442924, 1486275, 1523115, 1550835 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

EXAMPLE

56924 is a term since A333926(56924) = 120960 > 2 * 56924, and A333926(56925) = 116064 > 2 * 56925.

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]); recAbQ[n_] := recDivSum[n] > 2*n; Select[Range[2*10^5], recAbQ[#] && recAbQ[# + 1] &]

CROSSREFS

Subsequence of A333928.

Cf. A333926, A333950.

Analogous sequences: A096399, A283418 (primitive), A318167 (bi-unitary), A327635 (infinitary), A327942 (nonunitary), A331412 (unitary).

Sequence in context: A031683 A202568 A145685 * A292788 A138597 A206758

Adjacent sequences:  A333948 A333949 A333950 * A333952 A333953 A333954

KEYWORD

nonn

AUTHOR

Amiram Eldar, Apr 11 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 June 15 13:25 EDT 2021. Contains 345048 sequences. (Running on oeis4.)