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.

A242278 Number of non-palindromic n-tuples of 3 distinct elements.

Original entry on oeis.org

0, 6, 18, 72, 216, 702, 2106, 6480, 19440, 58806, 176418, 530712, 1592136, 4780782, 14342346, 43040160, 129120480, 387400806, 1162202418, 3486725352, 10460176056, 31380882462, 94142647386, 282429005040, 847287015120, 2541864234006, 7625592702018, 22876787671992
Offset: 1

Views

Author

Mikk Heidemaa, Aug 16 2014

Keywords

Examples

			For n=3, the a(3)=18 solutions (non-palindromic 3-tuples) are:
{0,0,1}, {0,0,2}, {0,1,1}, {0,1,2}, {0,2,1}, {0,2,2}, {1,0,0}, {1,0,2},
{1,1,0}, {1,1,2}, {1,2,0}, {1,2,2}, {2,0,0}, {2,0,1}, {2,1,0}, {2,1,1},
{2,2,0}, {2,2,1}.

Links

Crossrefs

Cf. A167993, A233411, A242026, A240437.

Programs

  • Maple
    A242278:=n->(1/2)* 3^(n/2) * ((sqrt(3)-1) * (-1)^n - sqrt(3)-1) + 3^n: seq(A242278(n), n=1..28); # Wesley Ivan Hurt, Aug 17 2014.
  • Mathematica
    Table[1/2 * 3^(n/2) * ((Sqrt(3)-1) * (-1)^n - Sqrt(3)-1) + 3^n, {n, 28}]
  • PARI
    a(n)=3^n-3^ceil(n/2) \\ Charles R Greathouse IV, Dec 10 2014

Formula

a(n) = 1/2 * 3^(n/2) * ((sqrt(3)-1)*(-1)^n - sqrt(3)-1) + 3^n.
a(n) = 3^n - 3^ceiling(n/2).
a(n) = A000244(n) - A056449(n).
G.f.: (6*x) / (1 - 3*x - 3*x^2 + 9*x^3).
a(n) = 6*A167993(n). [Bruno Berselli, Aug 19 2014]

A240437 Number of non-palindromic n-tuples of 5 distinct elements.

Original entry on oeis.org

0, 20, 100, 600, 3000, 15500, 77500, 390000, 1950000, 9762500, 48812500, 244125000, 1220625000, 6103437500, 30517187500, 152587500000, 762937500000, 3814695312500, 19073476562500, 95367421875000, 476837109375000, 2384185742187500, 11920928710937500, 59604644531250000, 298023222656250000
Offset: 1

Views

Author

Mikk Heidemaa, Aug 17 2014

Keywords

Examples

			For n=3 a(3)=100 solutions are:
{0,0,1}, {0,0,2}, {0,0,3}, {0,0,4}, {0,1,1}, {0,1,2}, {0,1,3}, {0,1,4},
{0,2,1}, {0,2,2}, {0,2,3}, {0,2,4}, {0,3,1}, {0,3,2}, {0,3,3}, {0,3,4},
{0,4,1}, {0,4,2}, {0,4,3}, {0,4,4}, {1,0,0}, {1,0,2}, {1,0,3}, {1,0,4},
{1,1,0}, {1,1,2}, {1,1,3}, {1,1,4}, {1,2,0}, {1,2,2}, {1,2,3}, {1,2,4},
{1,3,0}, {1,3,2}, {1,3,3}, {1,3,4}, {1,4,0}, {1,4,2}, {1,4,3}, {1,4,4},
{2,0,0}, {2,0,1}, {2,0,3}, {2,0,4}, {2,1,0}, {2,1,1}, {2,1,3}, {2,1,4},
{2,2,0}, {2,2,1}, {2,2,3}, {2,2,4}, {2,3,0}, {2,3,1}, {2,3,3}, {2,3,4},
{2,4,0}, {2,4,1}, {2,4,3}, {2,4,4}, {3,0,0}, {3,0,1}, {3,0,2}, {3,0,4},
{3,1,0}, {3,1,1}, {3,1,2}, {3,1,4}, {3,2,0}, {3,2,1}, {3,2,2}, {3,2,4},
{3,3,0}, {3,3,1}, {3,3,2}, {3,3,4}, {3,4,0}, {3,4,1}, {3,4,2}, {3,4,4},
{4,0,0}, {4,0,1}, {4,0,2}, {4,0,3}, {4,1,0}, {4,1,1}, {4,1,2}, {4,1,3},
{4,2,0}, {4,2,1}, {4,2,2}, {4,2,3}, {4,3,0}, {4,3,1}, {4,3,2}, {4,3,3},
{4,4,0}, {4,4,1}, {4,4,2}, {4,4,3}.

Links

Crossrefs

Cf. A233411, A242026, A242278.

Programs

  • Maple
    gf := (20*x^2) / (1 - 5*x - 5*x^2 + 25*x^3): ser := series(gf, x, 26):
seq(coeff(ser,x,n), n=1..25); # Peter Luschny, May 13 2019
  • Mathematica
    Table[1/2 * 5^(n/2) * ((Sqrt[5]-1) * (-1)^n - Sqrt[5]-1) + 5^n, {n, 25}]
  • PARI
    concat([0], Vec( ( (20*x^2) / (1 - 5*x - 5*x^2 + 25*x^3) + O(x^30) ) ) ) \\ Joerg Arndt, Aug 18 2014

Formula

a(n) = 1/2 * 5^(n/2) * ((sqrt(5)-1) * (-1)^n - sqrt(5)-1) + 5^n.
a(n) = 5^n - 5^ceiling(n/2).
a(n) = A000351(n) - A056451(n).
G.f.: (20*x^2) / (1 - 5*x - 5*x^2 + 25*x^3). [corrected by Peter Luschny, May 13 2019]

A251861 Number of non-palindromic words (length n>0) over the alphabet of 26 letters.

Original entry on oeis.org

0, 650, 16900, 456300, 11863800, 308898200, 8031353200, 208826607600, 5429491797600, 141167083772000, 3670344178072000, 95428956352766400, 2481152865171926400, 64509974695265340800, 1677259342076898860800, 43608742899220046995200, 1133827315379721221875200, 29479510200008489360729600, 766467265200220723378969600, 19928148895209267985244544000
Offset: 1

Views

Author

Mikk Heidemaa, Dec 10 2014

Keywords

Comments

Example: the acronyms 'OEIS' and 'SIEO' are two distinct non-palindromic words of length 4 among all possible such 456300 words (over 26 letters of the Latin alphabet).

Examples

			For n=2, the a(2)=650 solutions are {ab,ac,...,az,...,yz}, but not, e.g., 'aa' or 'zz'.

Links

Crossrefs

Analogs for other numbers of elements: (1) A000004, (2) A233411, (3) A242278, (4) A242026, (5) A240437.
Cf. A056450.

Programs

  • Maple
    seq(26^n - 26^ceil(n/2), n = 1 .. 50); # Robert Israel, Dec 11 2014
  • Mathematica
    f[n_, b_] := b^n - b^Ceiling[n/2]; Array[ f[#, 26] &, 50] (* Robert G. Wilson v, Dec 10 2014 *)
Table[2^(n/2-1)*13^(n/2)*((-1)^n*(Sqrt[26]-1)-Sqrt[26]-1)+26^n, {n, 50}]
  • PARI
    a(n)=26^n-26^ceil(n/2) \\ Charles R Greathouse IV, Dec 10 2014

Formula

a(n) = 2^(n/2-1)*13^(n/2)*((-1)^n*(sqrt(26)-1)-sqrt(26)-1)+26^n.
a(n) = 26^n - 26^ceiling(n/2).
G.f.: 650*x^2/((1 - 26*x)*(1 - 26*x^2)).
a(n+3) = 26*a(n+2) + 26*a(n+1) - 676*a(n). - Robert Israel, Dec 11 2014
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.