L. Carlitz, <a href="https://web.archive.org/web/2024*/https://www
L. Carlitz, <a href="https://web.archive.org/web/2024*/https://www
L. Carlitz, <a href="httphttps://www.fq.math.ca/Scanned/14-3/carlitz2.pdf">Restricted Compositions</a>, Fibonacci Quarterly, 14 (1976) 254-264.
editing
approved
Table[Count[Flatten[Permutations/@IntegerPartitions[n], 1], _?(FreeQ[Differences[#], 0]&)], {n, 0, 20}] (* The program generates the first 21 terms of the sequence. *) (* Harvey P. Dale, Nov 23 2024 *)
approved
editing
editing
approved
Number of compositions of n such that no two adjacent parts are equal (these are sometimes called Carlitz compositions).
approved
editing
editing
approved
Christian G. Bower and Alois P. Heinz, <a href="/A003242/b003242.txt">Table of n, a(n) for n = 0..4100</a> (first 501 terms from Christian G. Bower)
approved
editing
proposed
approved
editing
proposed