A370355 Highly touchable numbers sandwiched between untouchable twin pairs.

1681, 5251, 7771, 36961, 39271, 170941, 196351, 360361, 510511, 1009471, 9699691

Offset

1,1

Comments

Highly touchable numbers k have a record number of solutions x to A001065(x) = k, while untouchable numbers k have no solution to this equation.

Links

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

Mathematica

seq[nmax_] := Module[{v = Table[0, {nmax}], i, s = {}, vmax = -1}, Do[i = DivisorSigma[1, n] - n; If[0 < i <= nmax, v[[i]]++], {n, 1, nmax^2}]; Do[If[v[[n]] > vmax, vmax = v[[n]]; If[v[[n - 1]] == 0 && v[[n + 1]] == 0, AppendTo[s, n]]], {n, 2, nmax - 1}]; s]; seq[8000]

Crossrefs

Intersection of A238895 and {A231964(n) + 1};

Cf. A001065, A005114.

Similar sequences: A068507, A113839.

Sequence in context: A145292 A228183 A175897 * A361705 A322745 A189654

Adjacent sequences: A370352 A370353 A370354 * A370356 A370357 A370358

Keyword

nonn,hard,more

Author

Amiram Eldar, Feb 16 2024

Status

approved