A348606 Numbers k such that k and k+1 are both nonexponential abundant numbers.
21735, 76544, 170624, 301664, 345344, 348704, 382304, 739935, 862784, 1218944, 1262624, 1272704, 1314495, 1370655, 1376864, 1539615, 1558304, 1707615, 1718144, 1761375, 1845375, 1890944, 1926015, 2100735, 2132864, 2223584, 2415104, 2463615, 2581215, 2675295, 2747744
Offset: 1
Keywords
Examples
21735 is a term since A160135(21735) = 21930 > 21735 and A160135(21736) = 23230 > 21736.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Mathematica
esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; q[n_] := DivisorSigma[1, n] - esigma[n] > n; Select[Range[1, 3*10^6], q[#] && q[#+1] &]