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-7 of 7 results.

A080371 a(n) is the smallest x such that the quotient d(x+1)/d(x) equals n, where d = A000005.

Original entry on oeis.org

2, 1, 11, 23, 47, 59, 191, 167, 179, 239, 5119, 359, 20479, 2111, 719, 839, 983039, 1259, 786431, 3023, 2879, 15359, 62914559, 3359, 22031, 266239, 6299, 6719, 13690208255, 5039, 22548578303, 7559, 156671, 6881279, 25919, 10079, 1168231104511, 5505023, 479231, 21839
Offset: 1

Views

Author

Labos Elemer, Feb 24 2003

Keywords

Comments

a(37) > 10^12. - Donovan Johnson, Sep 02 2013
Conjecture: a(p) = 2^(p-1) * k - 1 for some k > 0 and prime p. - David A. Corneth, Jan 26 2021

Examples

			n = 49: a(49) = 233279 = m, d(m+1) = 98, d(m) = 2, quotient = 49.

Links

Crossrefs

Cf. A000005, A080372.

Programs

  • Mathematica
    t = Table[ 0, {50}]; Do[ s = DivisorSigma[0, n+1] / DivisorSigma[0, n]; If[ s < 51 && t[[s]] == 0, t[[s]] = n], {n, 1, 10^8}]; t
  • PARI
    {a(n) = my(k=1); while(numdiv(k+1)!=n*numdiv(k), k++); k} \\ Seiichi Manyama, Jan 17 2021

Formula

a(n) = Min_{x : d[x+1]/d[x] = n}.
a(n) = A086551(n) - 1. - Hugo Pfoertner, Jan 26 2021

Extensions

More terms from Robert G. Wilson v, Feb 27 2003
a(29) and a(31) from Donovan Johnson, Dec 26 2012
More terms from David A. Corneth, Jan 27 2021

A343020 a(n) is the smallest prime p such that tau(p+1) = 2^n.

Original entry on oeis.org

2, 5, 23, 167, 839, 7559, 128519, 1081079, 20540519, 397837439, 8031343319, 188972783999, 3212537327999, 125568306863999, 2888071057871999, 190487121512687999, 4381203794791823999, 215961289494494543999, 13283916764437951631999, 540119185025730854543999, 26465840066260811872655999, 1356699703068812438127791999
Offset: 1

Views

Author

Jaroslav Krizek, Apr 02 2021

Keywords

Comments

tau(m) = the number of divisors of m (A000005).
Sequences of primes p such that tau(p+1) = 2^n for 2 <= n <= 5:
n = 2: 5, 7, 13, 37, 61, 73, 157, 193, 277, 313, 397, 421, ...
n = 3: 23, 29, 41, 53, 101, 103, 109, 113, 127, 137, 151, ...
n = 4: 167, 263, 269, 311, 383, 389, 439, 461, 509, 569, ...
n = 5: 839, 1319, 1511, 1559, 1847, 1889, 2039, 2309, 2687, ...
Conjecture: a(n) is also the smallest number m such that tau(m+1) = tau(m)^n.

Examples

			a(4) = 167 because 167 is the smallest prime p such that tau(p+1) = 16 = 2^4.

Links

Crossrefs

Cf. A037992, A080371, A080372, A340799, A343018, A343019.

Programs

  • Magma
    Ax:=func; [Ax(n): n in [1..7]]
  • Mathematica
    Do[p = 1; While[DivisorSigma[0, Prime[p] + 1] != 2^n, p++]; Print[n, " ", Prime[p]], {n, 1, 9}] (* Vaclav Kotesovec, Apr 03 2021 *)
  • PARI
    a(n) = my(t=2^n); forprime(p=2, oo, if(numdiv(p+1)==t, return(p))); \\ Jinyuan Wang, Apr 02 2021
  • Python
    from sympy import isprime,nextprime
primes=[2]
def solve(v,k,i,j):
    global record,stack,primes
    if k==0:
        if isprime(v-1):
            record=v
        return True
    sizeok=False
    cnt=True
    while cnt:
        if i>=len(primes):
            primes.append(nextprime(primes[-1]))
        if jBert Dobbelaere, Apr 11 2021

Extensions

a(11) from Jinyuan Wang, Apr 02 2021
More terms from David A. Corneth, Apr 09 2021

A343018 a(n) is the smallest number m such that tau(m+1) = tau(m) + n.

Original entry on oeis.org

2, 1, 5, 49, 11, 35, 23, 399, 47, 1849, 59, 143, 119, 1599, 167, 575, 179, 1295, 239, 4355, 629, 2303, 359, 899, 959, 9215, 1007, 39999, 719, 20735, 839, 5183, 1799, 46655, 1259, 36863, 1679, 7055, 3023, 986049, 2879, 3599, 6479, 82943, 2519, 193599, 3359, 207935
Offset: 0

Views

Author

Jaroslav Krizek, Apr 02 2021

Keywords

Comments

tau(m) = the number of divisors of m (A000005).
Sequences of numbers m such that tau(m+1) = tau(m) + n for 0 <= n <= 5:
n = 0: 2, 14, 21, 26, 33, 34, 38, 44, 57, 75, 85, 86, 93, ... (A005237).
n = 1: 1, 3, 9, 15, 25, 63, 121, 195, 255, 361, 483, 729, ... (A055927).
n = 2: 5, 7, 13, 27, 37, 51, 61, 62, 73, 74, 91, 115, 123, ... (A230115).
n = 3: 49, 99, 1023, 1681, 1935, 2499, 8649, 9603, 20449, ... (A230653).
n = 4: 11, 17, 19, 31, 39, 43, 55, 65, 67, 69, 77, 87, 97, ... (A230654).
n = 5: 35, 169, 289, 529, 961, 1369, 2809, 3135, 4489, ... (A228453).

Examples

			For n = 3; a(3) = 49 because 49 is the smallest number such that tau(50) = 6 = tau(49) + 3 = 3 + 3.

Links

Crossrefs

Cf. A000005 (tau), A080371, A080372, A086550, A340799, A343019, A343020.

Programs

  • Magma
    Ax:=func; [Ax(n): n in [0..50]];
  • Maple
    N:= 60: # for a(0)..a(N)
V:= Array(0..N): count:=0: t:= numtheory:-tau(1):
for m from 1 while count < N+1 do
  s:= numtheory:-tau(m+1); v:= s - t;
  if v >= 0 and v <= N and V[v] = 0 then count:= count+1; V[v]:= m; fi;
  t:= s;
od:
convert(V, list); # Robert Israel, Jan 03 2025
  • Mathematica
    d = Differences @ Table[DivisorSigma[0, n], {n, 1, 10^6}]; a[n_] := If[(p = Position[d, n]) != {}, p[[1, 1]], 0]; s = {}; n = 0; While[(a1 = a[n]) > 0, AppendTo[s, a1]; n++]; s (* Amiram Eldar, Apr 03 2021 *)
  • PARI
    a(n) = my(m=1); while (numdiv(m+1) != numdiv(m) + n, m++); m; \\ Michel Marcus, Apr 03 2021
  • Python
    from itertools import count, pairwise
from sympy import divisor_count
def A343018(n): return next(m+1 for m, t in enumerate(pairwise(map(divisor_count,count(1)))) if t[1] == t[0]+n) # Chai Wah Wu, Jul 25 2022

Formula

a(n) = A086550(n) - 1.

A343019 a(n) is the smallest number m such that tau(m+1) = tau(m) - n.

Original entry on oeis.org

2, 4, 6, 16, 12, 24, 30, 36, 84, 324, 60, 144, 192, 120, 210, 288, 180, 528, 240, 576, 480, 360, 420, 900, 1344, 960, 720, 5184, 1008, 840, 1320, 2400, 1260, 17424, 1800, 14640, 2640, 1680, 2160, 8280, 4800, 3600, 11220, 7056, 3780, 6240, 2520, 82944, 6480
Offset: 0

Views

Author

Jaroslav Krizek, Apr 02 2021

Keywords

Comments

tau(m) = the number of divisors of m (A000005).
A greedy inverse of A051950.
Sequences of numbers m such that tau(m+1) = tau(m) - n for 0 <= n <= 5:
n = 0: 2, 14, 21, 26, 33, 34, 38, 44, 57, 75, 85, 86, 93, ... (A005237).
n = 1: 4, 8, 81, 441, 625, 1089, 2024, 2401, 3025, 3968, ... (A068208).
n = 2: 6, 10, 20, 22, 32, 45, 46, 50, 58, 68, 76, 82, 92, ... (A227874).
n = 3: 16, 64, 224, 675, 1444, 2115, 3843, 5475, 6724, 9801, ...
n = 4: 12, 18, 28, 52, 54, 56, 105, 110, 114, 128, 148, 154, ...
n = 5: 24, 80, 225, 484, 1024, 1088, 1156, 1225, 1521, 2116, ...

Examples

			For n = 3; a(3) = 16 because 16 is the smallest number such that tau(17) = 2 = tau(16) - 3 = 5 - 3.

Links

Crossrefs

Cf. A000005 (tau), A051950, A080371, A080372, A343018.

Programs

  • Magma
    Ax:=func; [Ax(n): n in [0..50]]
  • Maple
    N:= 50: # for a(0)..a(N)
V:= Array(0..N): count:=0: t:= numtheory:-tau(1):
for m from 1 while count < N+1 do
  s:= numtheory:-tau(m+1); v:= t - s;
  if v >= 0 and v <= N and V[v] = 0 then
    count:= count+1; V[v]:= m;
  fi;
  t:= s;
od:
convert(V,list); # Robert Israel, Jul 03 2024
  • Mathematica
    d = Differences @ Table[DivisorSigma[0, n], {n, 1, 10^5}]; a[n_] := If[(p = Position[d, -n]) != {}, p[[1, 1]], 0]; s = {}; n = 0; While[(a1 = a[n]) > 0, AppendTo[s, a1]; n++]; s (* Amiram Eldar, Apr 03 2021 *)
  • PARI
    a(n) = my(m=1); while (numdiv(m+1) != numdiv(m) - n, m++); m; \\ Michel Marcus, Apr 03 2021
  • Python
    from itertools import count, pairwise
from sympy import divisor_count
def A343019(n): return next(m+1 for m, t in enumerate(pairwise(map(divisor_count,count(1)))) if t[1] == t[0]-n) # Chai Wah Wu, Jul 25 2022

A340720 Least positive number k such that sigma(k) = n * sigma(k+1).

Original entry on oeis.org

14, 12, 180, 25908120
Offset: 1

Views

Author

Seiichi Manyama, Jan 17 2021

Keywords

Examples

			  n | sigma(a(n)) | sigma(a(n)+1)
----+-------------+--------------
  1 |          24 |            24
  2 |          28 |            14
  3 |         546 |           182
  4 |   103680000 |      25920000

Crossrefs

Cf. A002961, A080372, A163193, A217791, A340715.

Programs

  • PARI
    {a(n) = my(k=1); while(sigma(k)!=n*sigma(k+1), k++); k}

A340582 Numbers k such that sigma(k) = 4 * sigma(k+1).

Original entry on oeis.org

25908120, 136616760, 171430560, 196876680, 354049920, 405601560, 514374840, 825473880, 1204476000, 2223650520, 2510539920, 3003191100, 4017339480, 4574146500, 6129062940, 6797728800, 7311296520, 9779952000, 12472435080, 13103164800, 19989450000, 22180840920, 22710872520
Offset: 1

Views

Author

Seiichi Manyama, Jan 21 2021

Keywords

Links

Crossrefs

Cf. A002961, A080372, A163193, A217791, A340713, A340720.

Extensions

a(9)-a(23) from Seiichi Manyama using A058073 data, Jan 21 2021

A340870 a(n) is the smallest prime p such that p - 1 has 2*n divisors.

Original entry on oeis.org

3, 7, 13, 31, 113, 61, 193, 211, 181, 241, 13313, 421, 12289, 2113, 1009, 1321, 2424833, 1801, 786433, 2161, 4801, 15361, 155189249, 2521, 6481, 61441, 6301, 8641, 3489660929, 12241, 3221225473, 7561, 64513, 1376257, 58321, 12601, 206158430209, 8650753, 184321
Offset: 1

Views

Author

Jaroslav Krizek, Jan 24 2021

Keywords

Comments

First differs from A080372(n) + 1 for n = 17, where a(17) = 2424833, whereas A080372(17) + 1 = 2162689. - Hugo Pfoertner, Jan 26 2021

Examples

			a(4) = 31 because 31 is the smallest prime p such that p - 1 has 2*4 divisors; tau(30) = 8.

Crossrefs

Cf. A000005 (tau), A080372, A008328.
Cf. A066814 (p-1 has n divisors), A340799 (p+1 has 2*n divisors).

Programs

  • Magma
    Ax:=func; [Ax(n): n in[1..20]]
  • Mathematica
    a={}; For[n=1,n<=40,n++,i=1;While[DivisorSigma[0,Prime[i]-1]!=2n,i++];AppendTo[a,Prime[i]]]; a (* Stefano Spezia, Jan 25 2021 *)
  • PARI
    a(n) = my(p=2); while(numdiv(p-1) != 2*n, p=nextprime(p+1)); p; \\ Michel Marcus, Jan 25 2021

Formula

tau(a(n) - 1) = 2*n.
Showing 1-7 of 7 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.