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.

A330836 Numbers of the form 2^(2*p-1)*3*M_p^2, where p > 2 is a Mersenne exponent, A000043, and M_p is the corresponding Mersenne prime, A000668.

Original entry on oeis.org

4704, 1476096, 396386304, 6753750274277376, 442715102395357986816, 113336363243719574421504, 31901471869127420013759771876790370304, 42404329554681223873219247037048711787234652848116929825491652260298489856
Offset: 1

Views

Author

Walter Kehowski, Jan 12 2020

Keywords

Comments

Also numbers with power-spectral basis {M_p^2*(M_p+2)^2, M_p^2*(M_p+1)^2, (M_p^2-1)^2}. The first element of the spectral basis of a(n) is A330819(n+1), the second element is A330837(n+1), and the third element is A330820(n+1). Generally, a power-spectral basis is a spectral basis that consists of primes and powers.
The spectral sum of a(n), that is, the sum of the elements of its spectral basis, is 2*a(n)+1. In this case, we say that a(n) has index 2.
a(n) is also isospectral with A330838(n), that is, a(n) and A330838(n) have the same spectral basis, but A330838(n) has index 1. Thus, A330838(n) and a(n) form an isospectral pair.
Subsequence of Zumkeller numbers (A083207), since a(n) = 2^r * 3 * s, where s is relatively prime to 6. - Ivan N. Ianakiev, Feb 03 2020

Examples

			If p = 3, then a(1) = 2^(2*3-1)*3*7^2 = 4704, and the spectral basis of 4704 is {63^2, 56^2, 48^2}, consisting of powers. The spectral sum of a(1), that is, the sum of the elements of its spectral basis, is 2*4704+1 = 9409. In this case, we say that a(1) has index 2. The number A330838(1) = 9704 has the same spectral basis as a(1), but with index 1. We say that A330838(1) and a(1) are isospectral and form an isospectral pair.

Links

Crossrefs

Cf. A000043, A000668, A133049, A139306, A330819, A330820, A330837, A330838.

Programs

  • Maple
    a := proc(n::posint)
  local p, m;
  p:=NumberTheory[IthMersenne](n+1);
  m:=2^p-1;
  return 2^(2*p-1)*3*m^2;
end:
  • Mathematica
    f[p_] := 2^(2*p - 1)*3*(2^p - 1)^2; f /@ MersennePrimeExponent /@ Range[2, 9] (* Amiram Eldar, Jan 12 2020 *)

Formula

a(n) = A139306(n+1) * 3 * A133049(n+1).

A330838 Numbers of the form 2^(2*p)*3*M_p^2, where p > 2 is a Mersenne exponent, A000043, and M_p is the corresponding Mersenne prime, A000668.

Original entry on oeis.org

9408, 2952192, 792772608, 13507500548554752, 885430204790715973632, 226672726487439148843008, 63802943738254840027519543753580740608, 84808659109362447746438494074097423574469305696233859650983304520596979712
Offset: 1

Views

Author

Walter Kehowski, Jan 17 2020

Keywords

Comments

a(n) has the same spectral basis as A330836(n), namely {M_p^2*(M_p+2)^2, M_p^2*(M_p+1)^2, (M_p^2-1)^2}, so the two numbers are isospectral as well as power-spectral, that is, they have the same spectral basis and that basis consists of powers. The spectral sum of a(n), that is, the sum of the elements of its spectral basis, is 1*a(n)+1, while the spectral sum of A330836(n) is 2*A330836(n)+1. We say that a(n) and A330836(n) form an isospectral pair, with a(n) of index 1 and A330836(n) of index 2.
Subsequence of Zumkeller numbers (A083207), since a(n) = 2^r * 3 * s, where s is relatively prime to 6. - Ivan N. Ianakiev, Feb 03 2020

Examples

			If p = 3, then M_3 = 7 and a(1) = 2^(2*3)*3*7^2 = 9408, with spectral basis {63^2, 56^2, 48^2}, and spectral sum equal to 1*9408 + 1 = 9409. However, {63^2, 56^2, 48^2} is also the spectral basis of A330836(1) = 4704, with spectral sum equal to 2*4704+1.

Links

Crossrefs

Cf. A000043, A000668, A133049, A330819, A330820, A330824, A330825, A330826, A330836, A330837.

Programs

  • Maple
    a := proc(n::posint)
  local p, m;
  p:=NumberTheory[IthMersenne](n+1);
  m:=2^p-1;
  return 2^(2*p)*3*m^2;
end:
  • Mathematica
    f[p_] := 2^(2p)*3*(2^p - 1)^2; f /@ MersennePrimeExponent /@ Range[2, 9]  (* Amiram Eldar, Jan 17 2020 *)

Formula

a(n) = A330824(n+1) * 3 * A133049(n+1).

A330841 Numbers of the form 2^(2*p-3)*9*M_p^2, where p > 2 is a Mersenne exponent, A000043, and M_p is the corresponding Mersenne prime, A000668.

Original entry on oeis.org

3528, 1107072, 297289728, 5065312705708032, 332036326796518490112, 85002272432789680816128, 23926103901845565010319828907592777728, 31803247166010917904914435277786533840425989636087697369118739195223867392
Offset: 1

Views

Author

Walter Kehowski, Jan 25 2020

Keywords

Comments

a(1) = 3528 has power-spectral basis {21^2, 28^2, 48^2}, of index 1. If n > 1, then a(n) has power-spectral basis {M^2*(M+2)^2, (1/4)*M^2*(M+1)^2, (M^2-1)^2}, with index 2, where M=A000668(n+1) is the (n+1)-st Mersenne prime. The first element of the spectral basis of a(n), n > 1, is A330819(n+1), the second element is A133051(n+1), and the third element is A330820(n+1). Generally, a power-spectral basis is a spectral basis that consists of primes and powers.
The spectral sum of a(n), that is, the sum of the elements of its spectral basis, is a(1) + 1 whenever n = 1, and 2*a(n)+1 whenever n > 1. In this case, we say that a(n) has index 1 and index 2, respectively.
a(n), n > 1, is also isospectral with 9*A133051(n), that is, a(n) and 9*A133051(n) have the same spectral basis, but 9*A133051(n) has index 1. Thus 9*A133051(n) and a(n) form an isospectral pair.

Examples

			a(2) = 2^(2*5-3)*9*31^2 = 2^7*9*31^2 = 1107072 has spectral basis {1023^2, 496^2, 960^2}, consisting of powers. The spectral sum of a(2), that is, the sum of the elements of its spectral basis, is 2*a(2)+1 = 2214145. In this case we say that a(2) has index 2. The number 9 * A330817(2) = 2^(2*5-2)*9*31^2 = 2^8*9*31^2 = 2214144 has the same spectral basis as a(2), but with index 1. We say that 9 * A330817(2) and a(2) are isospectral and form an isospectral pair.

Links

Crossrefs

Cf. A000043, A000668, A133049, A133051, A152921, A152922, A330818, A330819, A330820, 9*A133051, 9*A330817, A330837.

Programs

  • Maple
    a := proc(n::posint)
local p, m;
p:=NumberTheory[IthMersenne](n+1);
m:=2^p-1;
return 2^(2*p-3)*9*m^2;
end;
  • Mathematica
    f[p_] := 9*2^(2*p - 3)*(2^p - 1)^2; f /@ MersennePrimeExponent /@ Range[2, 9] (* Amiram Eldar, Feb 07 2020 *)

Formula

a(n) = A152922(n+1) * 9 * A133049(n+1).
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.