|
|
A348628
|
|
Numbers k such that k and k+1 have the same sum of nonexponential divisors (A160135).
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
a(9) > 1.6 * 10^11, if it exists.
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
MATHEMATICA
|
esigma[n_] := Times @@ (Sum[First[#]^d, {d, Divisors[Last[#]]}] &) /@ FactorInteger[n]; s[1] = 1; s[n_] := DivisorSigma[1, n] - esigma[n]; Select[Range[500000], s[#] == s[# + 1] &]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|