login
T(n,7), array T as in A051168; a count of Lyndon words; aperiodic necklaces with 7 black beads and n-7 white beads.
1

%I #16 Aug 04 2024 12:58:09

%S 0,1,4,12,30,66,132,245,429,715,1144,1768,2652,3876,5537,7752,10659,

%T 14421,19228,25300,32890,42287,53820,67860,84825,105183,129456,158224,

%U 192129,231880,278256,332112,394383,466089,548340

%N T(n,7), array T as in A051168; a count of Lyndon words; aperiodic necklaces with 7 black beads and n-7 white beads.

%H <a href="/index/Lu#Lyndon">Index entries for sequences related to Lyndon words</a>

%F G.f.: -(x^7/7)*(1/(1- x^7)+1/(-1+x)^7). - _Herbert Kociemba_, Oct 16 2016

%t Drop[CoefficientList[Series[-(x^7/7)*(1/(1-x^7)+1/(-1+x)^7),{x,0,50}],x],7] (* _Harvey P. Dale_, Aug 04 2024 *)

%Y Cf. A000031, A001037, A051168. Same as A011797(n-1).

%K nonn

%O 7,3

%A _Clark Kimberling_

%E a(20) corrected by _Herbert Kociemba_, Oct 16 2016