OFFSET
1,1
COMMENTS
The record values correspond to the terms of A064440.
All the terms are primes by definition.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..188
MATHEMATICA
seq[max_] := Module[{s = Table[0, {n, 1, max}], i, v = {}, m = 0}, Do[If[(i = DivisorSigma[1, n] - n) <= max, s[[i]]++], {n, 2, (max - 1)^2}]; Do[If[s[[i]] > m && PrimeQ[s[[i]]], m = s[[i]]; AppendTo[v, s[[i]]]], {i, 1, max}]; v]; seq[2000]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 23 2022
STATUS
approved