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.

A273285 A273283(n)^Omega(n), where Omega = A001222.

Original entry on oeis.org

2, 3, 4, 5, 9, 7, 8, 9, 25, 11, 27, 13, 25, 25, 16, 17, 27, 19, 27, 25, 25, 23, 81, 25, 49, 27, 125, 29, 125, 31, 32, 49, 49, 49, 81, 37, 49, 49, 81, 41, 125, 43, 125, 125, 49, 47, 243, 49, 125, 121, 125, 53, 81, 121, 81, 121, 121, 59, 81, 61, 121, 125, 64, 121, 125, 67, 125, 121, 125, 71
Offset: 2

Views

Author

Giuseppe Coppoletta, May 20 2016

Keywords

Comments

a(n) >= A079871(n) for any n>=2.
a(n) = n iff n is the power of a prime (A246655).

Examples

			a(33) = 49 because Omega(33)=2 and 5^2 < 33 < 7^2.
a(2403) = 11^4 (and A273284(2403)=7^4) because A001222(3^3*89)=4 and 7^4 < n < 11^4.

Links

Crossrefs

Cf. A273283, A273284, A273291, A079871, A001222, A246655.

Programs

  • Mathematica
    Table[NextPrime[(Ceiling[n^(1/PrimeOmega[n])] - 1)]^PrimeOmega[n], {n,2,50}] (* G. C. Greubel, May 26 2016 *)
  • Sage
    s=sloane.A001222; [next_prime(ceil(n^(1/s(n)))-1)^s(n) for n in (2..82)]

Formula

a(n) = A273283(n)^A001222(n).

A273289 Least prime not less than the median of all prime divisors of n counted with multiplicity.

Original entry on oeis.org

2, 3, 2, 5, 3, 7, 2, 3, 5, 11, 2, 13, 5, 5, 2, 17, 3, 19, 2, 5, 7, 23, 2, 5, 11, 3, 2, 29, 3, 31, 2, 7, 11, 7, 3, 37, 11, 11, 2, 41, 3, 43, 2, 3, 13, 47, 2, 7, 5, 11, 2, 53, 3, 11, 2, 11, 17, 59, 3, 61, 17, 3, 2, 11, 3, 67, 2, 13, 5, 71, 2, 73, 23, 5, 2, 11, 3, 79, 2, 3, 23
Offset: 2

Views

Author

Giuseppe Coppoletta, May 25 2016

Keywords

Comments

A273288(n)<= a(n)<= A006530<= n and a(n) = n iff n is prime.

Examples

			a(76) = 2 because the median of its prime factors [2, 2, 19] is the central value 2 (and it is prime).
a(308) = 5 because the median of [2, 2, 7, 11] is commonly defined as the mean of the central values (2+7)/2 = 4.5 and the next prime is 5.

Links

Crossrefs

Cf. A273283, A273285, A273288, A273291, A079870, A006530.

Programs

  • Mathematica
    Table[If[PrimeQ@ #, #, NextPrime@ #] &@ Median@ Flatten@ Apply[Table[#1, {#2}] &, FactorInteger@ n, 1], {n, 2, 82}] (* Michael De Vlieger, May 27 2016 *)
  • Sage
    r = lambda n: [f[0] for f in factor(n) for _ in range(f[1])]; [next_prime(ceil(median(r(n)))-1) for n in (2..100)]

A273290 A273288(n)^Omega(n), where Omega = A001222.

Original entry on oeis.org

2, 3, 4, 5, 4, 7, 8, 9, 9, 11, 8, 13, 9, 9, 16, 17, 27, 19, 8, 25, 25, 23, 16, 25, 49, 27, 8, 29, 27, 31, 32, 49, 49, 25, 16, 37, 49, 49, 16, 41, 27, 43, 8, 27, 121, 47, 32, 49, 125, 49, 8, 53, 81, 49, 16, 121, 169, 59, 16, 61, 169, 27, 64, 49, 27, 67, 8, 169, 125
Offset: 2

Views

Author

Giuseppe Coppoletta, May 25 2016

Keywords

Comments

a(n) is by definition the power of a prime. It coincides with n iff n is the power of a prime (A246655).
a(n) <= A273291(n)

Examples

			a(70) = A273291(70) = 5^3 because the median  of its prime factors [2, 5, 7] is the central value 5 (prime) and Omega(70)=3.
a(308) = 3^4 because Omega(308)=4 and the median of [2, 2, 7, 11] is (2+7)/2 = 4.5, whose previous prime is 3.

Links

Crossrefs

Cf. A273284, A273288, A273291, A079867, A246655, A001222.

Programs

  • Mathematica
    Table[Prime[PrimePi@ Median@ #]^Length@ # &@ Flatten@ Apply[Table[#1 {#2}] &, FactorInteger@ n, 1], {n, 2, 75}] (* Michael De Vlieger, May 27 2016 *)
  • Sage
    def pfwr(n): return flatten([([p] * m) for (p, m) in factor(n)]) # (list of prime factors of n with repetition)
[previous_prime(floor(median(pfwr(n)))+1)^sloane.A001222(n) for n in (2..70)]

Formula

a(n) = A273288(n)^A001222(n).
Showing 1-3 of 3 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.