cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A134320 Positive integers with more non-isolated divisors than isolated divisors.

Original entry on oeis.org

2, 4, 6, 12, 20, 30, 42, 90
Offset: 1

Views

Author

Leroy Quet, Oct 20 2007

Keywords

Comments

A divisor k of n is isolated if neither k-1 nor k+1 divides n (see A133779, A132881).
Is this sequence finite? One can show that, with the exception of a(2) = 4, all terms of this sequence must be of the form m*(m+1), oblong numbers, A002378.
Comments from Hugo van der Sanden, Oct 30 2007 and Oct 31 2007: (Start) A quick program to check found no other example up to 3e6, which certainly suggests it is not just finite but complete.
Partial proof: if adjacent integers k, k+1 both divide n then since they are coprime we also have that k(k+1) divides n, so k < sqrt(n).
I.e. the largest non-isolated factor a number can have is ceiling(sqrt(n)).
Since the divisors are symmetrically disposed around the square root, we have: if n is nonsquare, to be in this sequence it must be an oblong number, with all divisors below the square root non-isolated; if n is square, say n = m^2, then we have n divisible by m^2(m-1), so we require m-1 = 1.
So the only square entry is n = 4.
It remains to prove that there is no oblong number greater than 9*10 that avoids isolated divisors below the square root. (End)

Examples

			The divisors of 42 are 1,2,3,6,7,14,21,42. Of these, 1,2,3,6,7 are non-isolated divisors and 14,21,42 are isolated divisors. There are more non-isolated divisors (5 in number) than isolated divisors (3 in number), so 42 is in the sequence.
		

Crossrefs

A134322 Positive integers with fewer non-isolated divisors than isolated divisors. A divisor, k, of n is non-isolated if (k-1) or (k+1) also divides n. A divisor, k, of n is isolated if neither (k-1) nor (k+1) divides n.

Original entry on oeis.org

1, 3, 5, 7, 9, 11, 13, 15, 16, 17, 19, 21, 23, 25, 27, 28, 29, 31, 32, 33, 35, 36, 37, 39, 41, 43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 57, 59, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, 73, 75, 76, 77, 78, 79, 80, 81, 83, 85, 87, 88, 89, 91, 92, 93, 95, 96, 97, 98, 99, 100
Offset: 1

Views

Author

Leroy Quet, Oct 20 2007

Keywords

Comments

All odd positive integers are in the sequence, since every divisor of any odd number is isolated.

Examples

			The divisors of 50 are 1,2,5,10,25,50. Of these, 1 and 2 are non-isolated divisors and 5,10,25,50 are isolated divisors. There are fewer non-isolated divisors (2 in number) than isolated divisors (4 in number), so 50 is in the sequence.
		

Crossrefs

Extensions

Extended by Ray Chandler, Jun 24 2008

A243932 Positive integers with the same number of twin divisors as non-twin divisors.

Original entry on oeis.org

6, 8, 21, 27, 33, 35, 39, 40, 45, 51, 57, 69, 72, 75, 87, 93, 96, 105, 111, 123, 129, 141, 143, 159, 168, 177, 183, 189, 201, 213, 219, 237, 249, 252, 264, 267, 291, 297, 303, 309, 312, 321, 323, 327, 339, 381, 393, 399, 411, 417, 420, 429, 447, 453, 471, 483, 489, 501
Offset: 1

Views

Author

Juri-Stepan Gerasimov, Jun 15 2014

Keywords

Comments

A divisor m of n is twin if the positive values of m - 2 and/or m + 2 also divides n.
A divisor k of n is non-twin if the positive values of neither k - 2 nor k + 2 divide n.

Examples

			The divisors of 40 are 1, 2, 4, 5, 8, 10, 20, 40. Of these, 2, 4, 8, 10, are twin divisors and 1, 5, 20, 40 are non-twin divisors. These are the same number of twin divisors (4) as non-twin divisors (4), so 40 is in this sequence.
		

Crossrefs

Programs

  • Mathematica
    fQ[n_] := Block[{d = Divisors@ n}, Length@ d == 2Length@ Select[d, MemberQ[d, # + 2] || MemberQ[d, # - 2] &]]; Select[ Range@ 520, fQ] (* Robert G. Wilson v, Jun 22 2014 *)
  • PARI
    isOK(n) = t=sumdiv(n, d, (d>2 && n%(d-2)==0) || (d<=n-2 && n%(d+2)==0)); if(t==numdiv(n)-t, 1, 0)
    s=[]; for(n=1, 600, if(isOK(n), s=concat(s, n))); s \\ Colin Barker, Jun 30 2014

Formula

A243865(a(n)) = A243917(a(n)).

Extensions

Missing term (168) inserted by Colin Barker, Jun 30 2014
Showing 1-3 of 3 results.