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

A309802 a(n) is the coefficient of x^n in the polynomial Product_{i=1..n+2} (prime(i)*x-1).

Original entry on oeis.org

1, 10, 101, 1358, 20581, 390238, 8130689, 201123530, 6166988769, 201097530280, 7754625545261, 329758834067168, 14671637258193181, 711027519310719868, 38706187989054920001, 2338431642812927422310, 145908145906128304198449, 9976861293427674211625032
Offset: 0

Views

Author

Alexey V. Bazhin, Aug 17 2019

Keywords

Links

Crossrefs

Cf. A000040, A002110, A024451, A070918, A309803, A309804, A033999, A007504, A024447, A024448, A024449, A054640, A005867, A238146, A260613.

Programs

  • Maple
    a:= n-> coeff(mul(ithprime(i)*x-1, i=1..n+2), x, n):
seq(a(n), n=0..20);  # Alois P. Heinz, Aug 18 2019

Formula

a(n) = [x^n] Product_{i=1..n+2} (prime(i)*x-1).
a(n) = abs(A070918(n+2,2)).
a(n) = abs(A238146(n+2,n)) for n>0.
a(n) = A260613(n+2,n).

A309803 a(n) is the coefficient of x^n in the polynomial Product_{i=1..n+3} (prime(i)*x-1).

Original entry on oeis.org

-1, -17, -288, -5102, -107315, -2429223, -64002818, -2057205252, -69940351581, -2788890538777, -122099137635118, -5580021752377242, -276932659619923555, -15388458479166668283, -946625238259888348698, -60082571176666116692888, -4171440414742758122621945
Offset: 0

Views

Author

Alexey V. Bazhin, Aug 17 2019

Keywords

Links

Crossrefs

Cf. A000040, A002110, A024451, A070918, A309802, A309804, A033999, A007504, A024447, A024448, A024449, A054640, A005867, A238146, A260613.

Programs

  • Maple
    a:= n-> coeff(mul(ithprime(i)*x-1, i=1..n+3), x, n):
seq(a(n), n=0..20);  # Alois P. Heinz, Aug 19 2019

Formula

a(n) = [x^n] Product_{i=1..n+3} (prime(i)*x-1).
a(n) = -abs(A070918(n+3,3)).
a(n) = -abs(A238146(n+3,n)) for n>0.
a(n) = -A260613(n+3,n).

A356253 a(n) is the largest coefficient of P(x) := Product_{k} (x + p_k), where (p_k) are the primes dividing n listed with multiplicity.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 12, 9, 10, 11, 16, 13, 14, 15, 32, 17, 21, 19, 24, 21, 22, 23, 44, 25, 26, 27, 32, 29, 31, 31, 80, 33, 34, 35, 60, 37, 38, 39, 68, 41, 42, 43, 48, 45, 46, 47, 112, 49, 50, 51, 56, 53, 81, 55, 92, 57, 58, 59, 92, 61, 62, 63, 240, 65, 66, 67, 72
Offset: 1

Views

Author

Thomas Scheuerle, Jul 31 2022

Keywords

Comments

a(n) is the greatest number we may obtain by applying elementary symmetric functions onto the prime factors of n with multiplicity.
The record values of a(n)/n appear at powers of two.
If a(n) is greater than n, then it equals in most cases A003415(n), the first exception where a(n) > A003415(n) > n is at n = 64.
Conjectured: a(A002110(n)) = A024451(n), for n > 2.
Conjecture equality breaks down after n = 175, as a(A002110(176)) > A024451(176). - Antti Karttunen, Feb 08 2024

Links

Crossrefs

Cf. A002110, A003415, A024451, A070918, A083348, A109388, A260613, A369657 (difference between this sequence and A003415).
Cf. A065048 (same concept but uses numbers 1..n instead of prime factors of n).

Programs

  • PARI
    a(n) = vecmax(Vec(vecprod([(x+f[1])^f[2] | f<-factor(n)~]))) \\ Edited by M. F. Hasler, Feb 14 2024

Formula

a(n) = n iff n is not in A083348, otherwise a(n) > n.
a(2^n) = A109388(n) = binomial( n, floor(n/3) )*2^(n-floor(n/3)).
a(p^n) = binomial( n, floor(n/(p+1)) )*p^(n-floor(n/(p+1))), if p is prime.
a(p*n)/a(n) >= n and <= n+1 if p is prime.
a(p*q)/a(q) = p if p and q are prime. This is also true if q is a prime greater than 7 and p is a product of two primes greater than 4.
a(A002110(n)) >= A024451(n), for n > 2. The maximum of row n in A260613 a variant of A070918.

A309804 a(n) is the coefficient of x^n in the polynomial Product_{i=1..n+4} (prime(i)*x-1).

Original entry on oeis.org

1, 28, 652, 16186, 414849, 11970750, 411154568, 14802996860, 617651235401, 28112591190218, 1330940558814492, 68134228016658366, 3888046744502816953, 244783216404832868510, 15878401438954693327808, 1123935467586630569656024, 83970858613393528568199649
Offset: 0

Views

Author

Alexey V. Bazhin, Aug 17 2019

Keywords

Crossrefs

Cf. A000040, A002110, A024451, A070918, A309802, A309803, A033999, A007504, A024447, A024448, A024449, A054640, A005867, A238146, A260613.

Programs

  • Maple
    a:= n-> coeff(mul(ithprime(i)*x-1, i=1..n+4), x, n):
seq(a(n), n=0..20);  # Alois P. Heinz, Aug 19 2019
  • Mathematica
    a[n_] := CoefficientList[Series[Product[Prime[i]*x - 1, {i, 1, n+4}], {x, 0, 25}], x] [[n+1]]; Array[a, 17, 0] (* Amiram Eldar, Aug 24 2019 *)
  • PARI
    a(n) = polcoef(prod(i=1, n+4, prime(i)*x-1), n); \\ Michel Marcus, Aug 25 2019

Formula

a(n) = [x^n] Product_{i=1..n+4} (prime(i)*x-1).
a(n) = abs(A070918(n+4,4)).
a(n) = abs(A238146(n+4,n)) for n>0.
a(n) = A260613(n+4,n).
Showing 1-4 of 4 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.