A048884 Numbers n such that sigma(n) - n = n - pi(n) - 1 where pi(n) is A000720.

1, 5, 9, 26, 236, 244, 4862, 5396, 6868, 9608, 9704, 23764, 82665, 733064, 25881904, 25886864, 33299110, 261851668

Offset

1,2

Comments

a(19) > 3*10^12. - Giovanni Resta, Mar 31 2017

Links

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

Mathematica

For[i = 1, i < 10^9, i++, If[DivisorSigma[1, i] - i == i - PrimePi[i] - 1, Print[i]]; ]; - Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 29 2006

Crossrefs

Cf. A037172.

Sequence in context: A038251 A034498 A219499 * A374025 A077915 A222357

Adjacent sequences: A048881 A048882 A048883 * A048885 A048886 A048887

Keyword

more,nonn

Author

Naohiro Nomoto

Extensions

More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Aug 29 2006

Status

approved