A005594 - OEIS

%I M1080 #29 Nov 08 2019 03:42:47

%S 1,2,4,7,14,26,59,122,284,647,1528,3602,8679,20882,50824,124055,

%T 304574,750122,1855099,4600202,11442086,28527447,71292604,178526882,

%U 447919419,1125750146,2833906684,7144450567,18036423974

%N States of a dynamic storage system.

%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

%H Vaclav Kotesovec, <a href="/A005594/b005594.txt">Table of n, a(n) for n = 0..1000</a>

%H C. G. Bower, <a href="/transforms2.html">Transforms</a>

%H INRIA Algorithms Project, <a href="http://ecs.inria.fr/services/structure?nbr=107">Encyclopedia of Combinatorial Structures 107</a>

%H INRIA Algorithms Project, <a href="http://ecs.inria.fr/services/structure?nbr=111">Encyclopedia of Combinatorial Structures 111</a>

%H M. D. McIlroy, <a href="http://dx.doi.org/10.1093/comjnl/25.3.388">The number of states of a dynamic storage system</a>, Computer J., 25 (No. 3, 1982), 388-392.

%H M. D. McIlroy, <a href="/A005207/a005207.pdf">The number of states of a dynamic storage system</a>, Computer J., 25 (No. 3, 1982), 388-392. (Annotated scanned copy)

%H <a href="/index/Ne#necklaces">Index entries for sequences related to necklaces</a>

%F Also "CIK" (necklace, indistinct, unlabeled) transform of 2, 1, 1, 1, ...

%t nmax = 30;

%t f[x_] = Sum[n*x^n, {n, 1, nmax}];

%t gf = Sum[(EulerPhi[n]/n)*Log[1/(1 - f[x^n])] + O[x]^nmax, {n, 1, nmax}];

%t CoefficientList[gf, x] + 1 (* _Jean-François Alcover_, Jul 29 2018, after _Joerg Arndt_ *)

%Y Equals A032198(n)+1.

%K nonn

%O 0,2

%A _N. J. A. Sloane_

%E Sequence extended by _Christian G. Bower_