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

A145671 a(n) = number of components of the graph P(n,3) (defined in Comments).

Original entry on oeis.org

1, 2, 4, 8, 15, 32, 88, 209, 539, 1403, 3698, 9962, 26447, 71579, 196590, 541473, 1501720, 4186566, 11737617, 33005599, 93296302
Offset: 1

Views

Author

W. Edwin Clark, Mar 17 2009

Keywords

Comments

Let H(n,b) be the Hamming graph whose vertices are the sequences of length n over the alphabet {0,1,...,b-1} with adjacency being defined by having Hamming distance 1. Let P(n,b) be the subgraph of H(n,b) induced by the set of vertices which are base b representations of primes with n digits (not allowing leading 0 digits).

Crossrefs

Extensions

a(11)-a(19) from Max Alekseyev, May 12 2011
a(20)-a(21) from Max Alekseyev, Dec 23 2024

A145660 a(n) = numerator of polynomial of genus 1 and level n for m = 4 = A[1,n](4).

Original entry on oeis.org

0, 4, 18, 220, 883, 17672, 23566, 659868, 5278979, 95021762, 380087174, 16723836916, 66895348819, 3478558152448, 13914232622662, 11131386100532, 178102177617521, 3027737019533893, 4036982692723202, 306810684647167556
Offset: 1

Views

Author

Artur Jasinski, Oct 16 2008

Keywords

Comments

For numerator of polynomial of genus 1 and level n for m = 1 see A001008.
Definition: The polynomial A[1,2n+1](m) = A[genus 1,level n] is here defined as
Sum_{d,1,n-1} m^(n-d)/d.
Few first A[1,n](m):
n=1: A[1,1](m)= 0;
n=2: A[1,2](m)= m;
n=3: A[1,3](m)= m/2 + m^2;
n=4: A[1,4](m)= m/4 + m^2/3 + m^3/2 + m^4.
General formula which uses these polynomials is following:
(1/(n+1))Hypergeometric2F1[1,n,n+1,1/m] =
Sum_{x>=0} m^(-x)/(x+n) =
m^n*arctanh((2m-1)/(2m^2-2m+1)) - A[1,n](m) =
m^n*log(m/(m-1)) - A[1,n](m).

Crossrefs

Programs

  • Maple
    A145660 := proc(n) add( 4^(n-d)/d,d=1..n-1) ; numer(%) ; end proc: # R. J. Mathar, Feb 01 2011
  • Mathematica
    m = 4; aa = {}; Do[k = 0; Do[k = k + m^(r - d)/d, {d, 1, r - 1}]; AppendTo[aa, Numerator[k]], {r, 1, 30}]; aa
Previous Showing 11-12 of 12 results.