A135244 -id:A135244 - cp's OEIS frontend

A152454 Irregular triangle in which row n lists the numbers whose proper divisors sum to n.

4, 9, 6, 25, 8, 10, 49, 15, 14, 21, 121, 27, 35, 22, 169, 16, 33, 12, 26, 39, 55, 289, 65, 77, 34, 361, 18, 51, 91, 20, 38, 57, 85, 529, 95, 119, 143, 46, 69, 133, 28, 115, 187, 841, 32, 125, 161, 209, 221, 58, 961, 45, 87, 247, 62, 93, 145, 253, 24, 155, 203, 299, 323, 1369

Offset: 2

T. D. Noe, Dec 05 2008

In an aliquot sequence, all numbers in row n can be predecessors of n. This sequence is a permutation of the composite numbers; number k appears in row A001065(k). We start with n=2 because every prime would be in row 1. Note that row 2 is empty -- as are all the rows listed in A005114. Row n contains A048138(n) numbers. When n is prime, the largest number in row n+1 is n^2. When n>7 is odd, the largest number in row n is less than ((n-1)/2)^2 and (if a strong form of the Goldbach conjecture is true) has the form pq, with primes p

In row n, the first term is A070015(n), and the last term is A135244(n). - Michel Marcus, Nov 11 2014

The first row with several terms is row(6), where the difference between extreme terms is 25-6=19. The next row with a smaller difference is row(13) with a difference 35-27=8. And the next one is row(454) with a difference 602-596=6. Is there a next row with a smaller difference? - Michel Marcus, Nov 11 2014

			Irregular triangle starts:
  ; (empty row at n=2)
  4;
  9;
  ; (empty row at n=5)
  6, 25;
  8;
  10, 49;
  15;
  14;
  21;
  121;
  27, 35;
  22, 169;
  16, 33;
  12, 26;
  39, 55;
  289;
  ...

T. D. Noe, Rows n=2..1000 of triangle, flattened
Michel Marcus, Rows n=2..1000 of triangle, not flattened

Cf. A001065, A005114, A048138.

Cf. A070015, A135244, A135245.

N:= 100: # for rows 2 to N, flattened
for s from 2 to N do B[s]:= NULL od:
for k from 1 to N^2 do
  if not isprime(k) then
    s:= numtheory:-sigma(k)-k;
    if s <= N then
       B[s]:= B[s],k;
    fi
  fi
od:
seq(B[s],s=2..N); # Robert Israel, Nov 11 2014

nn=100; s=Table[{},{nn}]; Do[k=DivisorSigma[1,n]-n; If[1

row(n) = select(x->(sigma(x)-x)==n, [1..n^2]); \\ Michel Marcus, Feb 25 2025

A135245 Aliquot predecessors with the largest degrees.

Original entry on oeis.org

0, 0, 4, 9, 0, 25, 8, 49, 15, 14, 21, 121, 35, 169, 33, 12, 55, 289, 65, 361, 91, 20, 85, 529, 143, 46, 133, 28, 187, 841, 161, 961, 247, 62, 253, 24, 323, 1369, 217, 81, 391, 1681, 341, 1849, 403, 86, 493, 2209, 551, 40, 481, 0, 667, 2809, 533, 106, 703, 68, 697, 3481

Offset: 1

Ophir Spector, ospectoro (AT) yahoo.com, Nov 25 2007

nonn

Find each node's predecessors in aliquot sequences and choose the node with largest number of predecessors.

Climb the aliquot trees on thickest branches (see A135244 = Climb the aliquot trees on shortest paths).

			a(25) = 143 since 25 has 3 predecessors (95,119,143) with degrees (4,5,7), 143 having the largest degree. a(5) = 0 since it has no predecessors (see Untouchables - A005114).

Ophir Spector, Table of n, a(n) for n = 1..150
W. 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

Cf. A001065 A005114 A125601 A135244 A057709 A057710 A063769 A080907 A121507 A037020 A126016.

A366110 a(n) is the difference between the maximum and minimum number whose proper divisors sum to n, or 0 if there is no such number.

Original entry on oeis.org

0, 0, 0, 0, 19, 0, 39, 0, 0, 0, 0, 8, 147, 17, 14, 16, 0, 12, 327, 73, 18, 28, 0, 48, 0, 64, 0, 72, 0, 189, 903, 202, 0, 160, 0, 168, 0, 0, 37, 328, 1651, 387, 1767, 280, 34, 364, 0, 476, 54, 448, 0, 432, 2767, 677, 0, 604, 0, 432, 0, 528, 3603, 753, 66, 826, 0, 768, 0, 720, 0

Offset: 2

Michel Marcus, Oct 28 2023

nonn

A152454 is the irregular triangle in which row n lists the numbers whose proper divisors sum to n.

			A152454 begins as []; [4]; [9]; []; [6, 25]; [8]; [10, 49]...
so sequence begins 0, 0, 0, 0, 19, 0, 39, ...

Michel Marcus, Table of n, a(n) for n = 2..10001

Cf. A001065, A152454.
Cf. A070015, A135244.
Cf. A005114, A057709.

lista(nn) = my(v = vector(nn, k, [])); forcomposite (i=1, nn^2, my(x=sigma(i)-i); if (x <=  nn, v[x] = concat(v[x], i));); vector(nn-1, k, k++; if (#v[k], vecmax(v[k]) - vecmin(v[k])));

a(n) = A135244(n) - A070015(n).

a(A005114(n)) = a(A057709(n)) = 0.

Showing 1-3 of 3 results.

cp's OEIS Frontend

A152454 Irregular triangle in which row n lists the numbers whose proper divisors sum to n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

A135245 Aliquot predecessors with the largest degrees.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A366110 a(n) is the difference between the maximum and minimum number whose proper divisors sum to n, or 0 if there is no such number.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

PARI

Formula