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.

Previous Showing 21-30 of 32 results. Next

A280346 Numbers with 79 divisors.

Original entry on oeis.org

302231454903657293676544, 16423203268260658146231467800709255289, 3308722450212110699485634768279851414263248443603515625, 827269706064171159838078900184013751038269841857389464208009274449, 1692892739326831320764318961708001178036611459414853872137348292520966629744627081
Offset: 1

Views

Author

Omar E. Pol, Jan 01 2017

Keywords

Comments

Also, 78th powers of primes.
More generally, the n-th number with p divisors is equal to the n-th prime raised to power p-1, where p is prime. In this case, p = 79.

Examples

			a(1) = 2^78, a(2) = 3^78, a(3) = 5^78, a(4) = 7^78, a(5) = 11^78.
		

Crossrefs

Programs

  • Mathematica
    With[{p = 22}, Table[Prime[n]^(Prime@ p - 1), {n, 5}]] (* Michael De Vlieger, Jan 01 2017 *)
  • PARI
    a(n)=prime(n)^78

Formula

a(n) = A000040(n)^(79-1) = A000040(n)^78.
A000005(a(n)) = 79.

A280347 Numbers with 83 divisors.

Original entry on oeis.org

4835703278458516698824704, 1330279464729113309844748891857449678409, 2067951531382569187178521730174907133914530277252197265625, 1986274564260074954771227439341817016242885890299592103563430267952049, 24785642596484137367310393918366845247634028377292875541962916350799472426091085092921
Offset: 1

Views

Author

Omar E. Pol, Jan 01 2017

Keywords

Comments

Also, 82nd powers of primes.
More generally, the n-th number with p divisors is equal to the n-th prime raised to power p-1, where p is prime. In this case, p = 83.

Examples

			a(1) = 2^82, a(2) = 3^82, a(3) = 5^82, a(4) = 7^82, a(5) = 11^82.
		

Crossrefs

Programs

  • Mathematica
    With[{p = 23}, Table[Prime[n]^(Prime@ p - 1), {n, 5}]] (* Michael De Vlieger, Jan 01 2017 *)
  • PARI
    a(n)=prime(n)^82

Formula

a(n) = A000040(n)^(83-1) = A000040(n)^82.
A000005(a(n)) = 83.

A280349 Numbers with 89 divisors.

Original entry on oeis.org

309485009821345068724781056, 969773729787523602876821942164080815560161, 32311742677852643549664402033982923967414535582065582275390625, 233683216210633558353880137011125430143959282107856711392134007594290612801, 43909277783870034878569768760415886733743786946105343887995366053338664170638348798300219681
Offset: 1

Views

Author

Omar E. Pol, Jan 01 2017

Keywords

Comments

Also, 88th powers of primes.
More generally, the n-th number with p divisors is equal to the n-th prime raised to power p-1, where p is prime. In this case, p = 89.

Examples

			a(1) = 2^88, a(2) = 3^88, a(3) = 5^88, a(4) = 7^88, a(5) = 11^88.
		

Crossrefs

Programs

  • Mathematica
    With[{p = 24}, Table[Prime[n]^(Prime@ p - 1), {n, 5}]] (* Michael De Vlieger, Jan 01 2017 *)
  • PARI
    a(n)=prime(n)^88

Formula

a(n) = A000040(n)^(89-1) = A000040(n)^88.
A000005(a(n)) = 89.

A139588 Nonprime numbers with Fibonacci number of divisors.

Original entry on oeis.org

1, 4, 9, 16, 24, 25, 30, 40, 42, 49, 54, 56, 66, 70, 78, 81, 88, 102, 104, 105, 110, 114, 121, 128, 130, 135, 136, 138, 152, 154, 165, 169, 170, 174, 182, 184, 186, 189, 190, 195, 222, 230, 231, 232, 238, 246, 248, 250, 255, 258, 266, 273, 282, 285, 286, 289
Offset: 1

Views

Author

Omar E. Pol, May 09 2008

Keywords

Comments

A000005(a(n)) is a Fibonacci number.
The union of {1}, A001248, A030514, A030626, A030631, A137484, etc. [From R. J. Mathar, Oct 26 2009]

Crossrefs

Programs

  • Mathematica
    Module[{fibs=Fibonacci[Range[20]]},Select[Range[300],!PrimeQ[#]&&MemberQ[ fibs,DivisorSigma[0,#]]&]] (* Harvey P. Dale, Jan 20 2023 *)

Formula

A123193 \ A000040. [From R. J. Mathar, Oct 23 2009]

Extensions

More terms from R. J. Mathar, Oct 23 2009

A382292 Numbers k such that A382290(k) = 1.

Original entry on oeis.org

8, 24, 27, 32, 40, 54, 56, 64, 72, 88, 96, 104, 108, 120, 125, 135, 136, 152, 160, 168, 184, 189, 192, 200, 224, 232, 243, 248, 250, 264, 270, 280, 288, 296, 297, 312, 320, 328, 343, 344, 351, 352, 360, 375, 376, 378, 392, 408, 416, 424, 432, 440, 448, 456, 459, 472, 480, 486, 488, 500
Offset: 1

Views

Author

Amiram Eldar, Mar 21 2025

Keywords

Comments

First differs from A374590 and A375432 at n = 25: A374590(25) = A375432(25) = 216 is not a term of this sequence.
Numbers k such that A382291(k) = 2, i.e., numbers whose number of infinitary divisors is twice the number of their unitary divisors.
Numbers whose prime factorization has a single exponent that is a sum of two distinct powers of 2 (A018900) and all the other exponents, if they exist, are powers of 2. Equivalently, numbers of the form p^e * m, where p is a prime, e is a term in A018900, and m is a term in A138302 that is coprime to p.
If k is a term then k^2 is also a term. If m is a term in A138302 that is coprime to k then k * m is also a term. The primitive terms, i.e., the terms that cannot be generated from smaller terms using these rules, are the numbers of the form p^(2^i+1), where p is prime and i >= 1.
Analogous to A060687, which is the sequence of numbers k with prime excess A046660(k) = 2.
The asymptotic density of this sequence is A271727 * Sum_{p prime} (((1 - 1/p)/f(1/p)) * Sum_{k>=1} 1/p^A018900(k)) = 0.11919967112489084407..., where f(x) = 1 - x^3 + Sum_{k>=2} (x^(2^k)-x^(2^k+1)).

Crossrefs

Subsequences (numbers of the form): A030078 (p^3), A050997 (p^5), A030516 (p^6), A179665 (p^9), A030629 (p^10), A030631 (p^12), A065036 (p^3*q), A178740 (p^5*q), A189987 (p^6*q), A179692 (p^9*q), A143610 (p^2*q^3), A179646 (p^5*q^2), A189990 (p^2*q^6), A179702 (p^4*q^5), A179666 (p^4*q^3), A190464 (p^4*q^6), A163569 (p^3*q^2*r), A189975 (p*q*r^3), A190115 (p^2*q^3*r^4), A381315, A048109.

Programs

  • Mathematica
    f[p_, e_] := DigitCount[e, 2, 1] - 1; q[1] = False; q[n_] := Plus @@ f @@@ FactorInteger[n] == 1; Select[Range[500], q]
  • PARI
    isok(k) = vecsum(apply(x -> hammingweight(x) - 1, factor(k)[, 2])) == 1;

A182685 a(n) = the smallest n-digit number with exactly 13 divisors, a(n) = 0 if no such number exists.

Original entry on oeis.org

0, 0, 0, 4096, 0, 531441, 0, 0, 244140625, 0, 13841287201, 0, 3138428376721, 23298085122481, 582622237229761, 2213314919066161, 21914624432020321, 353814783205469041, 6582952005840035281, 22563490300366186081
Offset: 1

Views

Author

Jaroslav Krizek, Nov 27 2010

Keywords

Comments

a(n) = the smallest n-digit number of the form p^12 (p = prime), a(n) = 0 if no such number exists.

Crossrefs

Programs

  • Maple
    A055642 := proc(n) max(1,ilog10(n)+1) ; end proc:
    A182685 := proc(n) for i from 1 do p := ithprime(i)^12 ; if A055642(p) > n then return 0 ; elif A055642(p) = n then return p; end if; end do: end proc:

Formula

A000005(a(n)) = 13.
a(n) = A182686(n) for n <= 17.

A182686 a(n) = the largest n-digit number with exactly 13 divisors, a(n) = 0 if no such number exists.

Original entry on oeis.org

0, 0, 0, 4096, 0, 531441, 0, 0, 244140625, 0, 13841287201, 0, 3138428376721, 23298085122481, 582622237229761, 2213314919066161, 21914624432020321, 787662783788549761, 6582952005840035281, 39959630797262576401
Offset: 1

Views

Author

Jaroslav Krizek, Nov 27 2010

Keywords

Comments

a(n) = the largest n-digit number of the form p^12 (p = prime), a(n) = 0 if no such number exists.

Crossrefs

Programs

  • Maple
    f:= proc(n) local r;
      r:= prevprime(ceil(10^(n/12)))^12;
      if r < 10^(n-1) then 0 else r fi;
    end proc:
    f(1):= 0: f(2):= 0: f(3):=0:
    map(f, [$1..30]); # Robert Israel, Apr 03 2019
  • PARI
    a(n) = my(r=precprime(ceil(10^(n/12))-1)^12); if(r < 10^(n-1), return(0)); r \\ Adapted from Robert Israel's Maple program; Felix Fröhlich, Apr 03 2019

Formula

A000005(a(n)) = 13.
a(n) = A182685(n) for n <= 17.

A381311 Numbers whose powerful part (A057521) is a power of a prime with an even exponent >= 2.

Original entry on oeis.org

4, 9, 12, 16, 18, 20, 25, 28, 44, 45, 48, 49, 50, 52, 60, 63, 64, 68, 75, 76, 80, 81, 84, 90, 92, 98, 99, 112, 116, 117, 121, 124, 126, 132, 140, 147, 148, 150, 153, 156, 162, 164, 169, 171, 172, 175, 176, 188, 192, 198, 204, 207, 208, 212, 220, 228, 234, 236
Offset: 1

Views

Author

Amiram Eldar, Feb 19 2025

Keywords

Comments

Numbers k whose largest unitary divisor that is a square, A350388(k), is a prime power (A246655), or equivalently, A350388(k) is in A056798 \ {1}.
Numbers having exactly one non-unitary prime factor and its multiplicity is even.
Numbers whose prime signature (A118914) is of the form {1, 1, ..., 2*m} with m >= 1, i.e., any number (including zero) of 1's and then a single even number.
The asymptotic density of this sequence is (1/zeta(2)) * Sum_{p prime} p/((p-1)*(p+1)^2) = 0.24200684327095676029... .

Crossrefs

Programs

  • Mathematica
    q[n_] := Module[{e = ReverseSort[FactorInteger[n][[;;,2]]]}, EvenQ[e[[1]]] && (Length[e] == 1 || e[[2]] == 1)]; Select[Range[1000],q]
  • PARI
    isok(k) = if(k == 1, 0, my(e = vecsort(factor(k)[, 2], , 4)); !(e[1] % 2) && (#e == 1 || e[2] == 1));

A236218 Sum of the twelfth powers of the first n primes.

Original entry on oeis.org

4096, 535537, 244676162, 14085963363, 3152514340084, 26450599462565, 609072836692326, 2822387755758487, 24737012187778808, 378551795393247849, 1166214579181797610, 7749166585021832891, 30312656885388018972, 70272287682650595373, 186463770791599173614
Offset: 1

Views

Author

Robert Price, Jan 20 2014

Keywords

Crossrefs

Cf. A085450 = smallest m > 1 such that m divides Sum_{k=1..m} prime(k)^n.
Partial sums of A030631.

Programs

  • Mathematica
    Table[Sum[Prime[k]^12, {k, n}], {n, 1000}]
    Accumulate[Prime[Range[20]]^12] (* Harvey P. Dale, Jan 31 2014 *)
  • PARI
    s=[]; for(n=1, 15, s=concat(s, sum(i=1, n, prime(i)^12))); s \\ Colin Barker, Jan 20 2014

Formula

a(n) = sum(k = 1 .. n, prime(k)^12).

A350767 a(1)=1. Thereafter, a(n+1) is the least unused number k such that either d(j(n)) properly divides d(k) or d(k) properly divides d(j(n)), where j(n) = a(n)+1 and d is the divisor counting function A000005.

Original entry on oeis.org

1, 6, 8, 12, 10, 14, 2, 15, 48, 18, 20, 3, 28, 21, 5, 7, 11, 4, 22, 24, 32, 13, 17, 9, 19, 23, 26, 29, 27, 25, 30, 33, 31, 37, 40, 34, 41, 35, 49, 43, 47, 16, 38, 42, 39, 46, 44, 53, 51, 59, 45, 54, 56, 60, 50, 61, 66, 52, 55, 57, 67, 71, 58, 62, 72, 63, 192, 65
Offset: 1

Views

Author

David James Sycamore, Jan 14 2022

Keywords

Comments

If d(j(n)) is prime p then d(a(n+1)) must be properly divisible by p. In practice the proper divisor for computation of a(n+1) toggles between d(j(n)) and d(k).
Conjecture: This is a permutation of the positive integers. Numbers with the same number (tau) of divisors appear in their natural orders (e.g., primes, semiprimes, squares).
The plot, after the first few terms, resolves itself into points tightly packed on and around a straight line of slope 1, with exceptional points appearing as significant upward or downward "spikes".
When d(j(n)) is prime p appearing for the first time in the sequence J = {d(j(a(n)), n>=1}, then a(n+1) is the smallest number with 2p divisors, which produces a significantly large upward spike above the straight line (6, 12, 48, 192, 3072, 12288, ...).
When d(j(a(n)) is 2p, seen for the first time in J, then a(n+1) is the smallest number with p divisors, which produces a large downward spike, below the straight line (2, 4, 16, 64, 1024, 4096, ...).
The sequence of fixed points starts: 1, 46, 69, 74, 110, 140, 142, 152, 154, 178, ... apparently becoming denser as n increases.

Examples

			a(1)=1, so j(1)=2, d(j(1))=2, a prime, so we need the smallest unused k such that d(k) is properly divisible by 2, hence a(2)=6.
a(2)=6, j(2)=4, d(j(2))=3, a prime so we need the smallest unused k such that d(k) is properly divisible by 3, hence a(3)=8.
		

Crossrefs

Programs

Extensions

More terms from Michael De Vlieger, Jan 14 2022
Previous Showing 21-30 of 32 results. Next