A073535 Numbers k such that S(k+2) = d(k)+2, where S(k) is the Kempner function (A002034) and d(k) is the number of divisors of k (A000005).

1, 2, 14, 34, 46, 96, 142, 178, 196, 240, 358, 598, 718, 1048, 1350, 1398, 1598, 1790, 1798, 2310, 2350, 2398, 2698, 3040, 3232, 3598, 3820, 3838, 5094, 5290, 5388, 6298, 6368, 6398, 6420, 6910, 7198, 7348, 7434, 8622, 8958, 9448, 11198, 11518, 14012, 14398

Offset

1,2

Links

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

Mathematica

kemp[n_] := Module[{m = 1}, While[!IntegerQ[m!/n], m++]; m]; aQ[n_] := kemp[n + 2] == DivisorSigma[0, n] + 2; Select[Range[1000], aQ] (* Amiram Eldar, Jan 20 2019 *)

Crossrefs

Cf. A000005, A002034, A073307, A073331, A073413.

Sequence in context: A282036 A373817 A050591 * A225292 A060626 A096311

Adjacent sequences: A073532 A073533 A073534 * A073536 A073537 A073538

Keyword

nonn

Author

Jason Earls, Aug 27 2002

Extensions

a(21)-a(46) from Amiram Eldar, Jan 20 2019

Status

approved