A239274 Numbers k such that k' = sigma(k) - phi(k), where k' = A003415(k) is the arithmetic derivative of k.

1, 88, 1104, 492624, 30818736, 200827760, 1598249556, 4575586644, 8491046375, 8554970196, 29917317500, 54481242640, 202195886375, 3201891498000

Offset

1,2

Comments

a(15) > 10^13.

Links

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

Mathematica

ad[1]=0; ad[n_]:=n*Total[(#1[[2]] / #1[[1]]&) /@ FactorInteger[n]]; Select[Range[500000], ad[#] == DivisorSigma[1, #] - EulerPhi[#] &]

Crossrefs

Cf. A000010, A000203, A003415, A166374, A230164.

Sequence in context: A182676 A228744 A249294 * A235018 A228810 A245954

Adjacent sequences: A239271 A239272 A239273 * A239275 A239276 A239277

Keyword

nonn

Author

Giovanni Resta, Mar 13 2014

Status

approved