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.

A276549 Number of primitive (aperiodic) reversible string structures with n beads using an infinite alphabet.

This page as a plain text file.
%I A276549 #11 Jun 16 2017 03:50:18
%S A276549 1,1,3,9,31,112,467,2141,10739,58454,340389,2110093,13830234,95475087,
%T A276549 691543059,5240282987,41432986587,341040306207,2916376237349,
%U A276549 25862097428262,237434959190586,2253358056942644,22076003468637449,222979436688500085,2319295172178428701
%N A276549 Number of primitive (aperiodic) reversible string structures with n beads using an infinite alphabet.
%H A276549 Andrew Howroyd, <a href="/A276549/b276549.txt">Table of n, a(n) for n = 1..200</a>
%F A276549 a(n) = Sum_{d|n} mu(n/d) * A103293(d+1).
%t A276549 b[n_] := SeriesCoefficient[Exp[(Exp[2*x] - 3)/2 + Exp[x]], {x, 0, n}]*n!;
%t A276549 c[n_] := If[n == 0, 1, (BellB[n - 1] + If[Mod[n, 2] == 1, b[(n - 1)/2], Sum[Binomial[n/2 - 1, k]*b[k], {k, 0, n/2 - 1}]])/2];
%t A276549 a[n_] := DivisorSum[n, MoebiusMu[n/#] c[# + 1]&];
%t A276549 Array[a, 25] (* _Jean-François Alcover_, Jun 16 2017, using _Alois P. Heinz_'s code for A103293 *)
%Y A276549 Row sums of A276544.
%Y A276549 Cf. A103293.
%K A276549 nonn
%O A276549 1,3
%A A276549 _Andrew Howroyd_, Apr 09 2017