|
%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
|
