OFFSET
2,2
COMMENTS
Previous name: Aliquot predecessors with the largest values.
Find each node's predecessors in aliquot sequences and choose the largest predecessor.
Climb the aliquot trees on shortest paths (see A135245 = Climb the aliquot trees on thickest branches).
The sequence starts at offset 2, since all primes satisfy sigma(n)-n = 1. - Michel Marcus, Nov 11 2014
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..10000 (terms 2..150 from Ophir Spector)
Wolfgang Creyaufmueller, Aliquot sequences.
J. O. M. Pedersen, Tables of Aliquot Cycles. [Broken link]
J. O. M. Pedersen, Tables of Aliquot Cycles. [Via Internet Archive Wayback-Machine]
J. O. M. Pedersen, Tables of Aliquot Cycles. [Cached copy, pdf file only]
Eric Weisstein's World of Mathematics, Aliquot sequence.
EXAMPLE
a(25) = 143 since 25 has 3 predecessors (95,119,143), 143 being the largest.
a(5) = 0 since it has no predecessors (see Untouchables - A005114).
MATHEMATICA
seq[max_] := Module[{s = Table[0, {n, 1, max}], i}, Do[If[(i = DivisorSigma[1, n] - n) <= max, s[[i]] = Max[s[[i]], n]], {n, 2, (max - 1)^2}]; Rest @ s]; seq[50]
PROG
(PARI) lista(nn) = {for (n=2, nn, k = (n-1)^2; while(k && (sigma(k)-k != n), k--); print1(k, ", "); ); } \\ Michel Marcus, Nov 11 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Ophir Spector (ospectoro(AT)yahoo.com), Nov 25 2007
EXTENSIONS
a(1)=0 removed and offset set to 2 by Michel Marcus, Nov 11 2014
New name from Michel Marcus, Oct 31 2023
STATUS
approved