In a 1959 article, E.C.S. Little from the University of Oxford proposed his Donomen system of nomenclature for pesticides and pharmaceuticals. Names generated by the Donomen system adhere to the following rules:
1. The words will all consist of 4 consonants and 3 vowels and thus be 7 letters long.​​​​2. The words will begin with a consonant and have vowels and consonants alternating until the last consonant which finishes the wrod e.g. TENIBOL. The words would be pronounced with all vowels short and the emp0hasis on the first 3 letters and the next two pairs equally, i.e. ten-ib-ol.​​​​3. Any consonants which are likely to cause spelling errors are excluded. Such consonants are:​​ Q confusable with K​​ C confusable with K or S​​ Y confusable with I​​ X confusable with KS​​​​4. By these rules consonant conjunctions such as TR or ST or BL and double vowels are also excluded.
As noted in Little's article, this leaves us with 5 vowels and 17 consonants, which means we have a little more then ten million Donomen names at our disposal:
17^45^3
10440125
Here is a function for testing if a string corresponds to a Donomen name:
donomenQ[s_String]:=StringLength[s]==7&&​​Module[{ch=Characters[ToUpperCase[s]]},​​ContainsOnly[ch[[{2,4,6}]],{"A","E","I","O","U"}]&&​​ContainsOnly[ch[[{1,3,5,7}]],{"B","D","F","G","H","J","K","L","M","N","P","R","S","T","V","W","Z"}]]
For instance, the name "Donomen" itself is a Donomen name:
donomenQ["Donomen"]
True
Some drug names and pesticide names are already Donomen names:
donomenQ/@{"dalapon","dinoseb","metopon","monuron"}
{True,True,True,True}
Little also notes in his article that only a few English words out of the ≈10 million are Donomen. Let's check this with WordList:
words=WordList["KnownWords"];
Short[ed=Select[words,donomenQ]]
{Bahamas,Bakunin,balagan,588,wizened,zebibit,zikurat}
There are quite a bit, but they are only a small fraction of the possible Donomen names:
Length[ed]/(17^45^3)//N
0.0000568959
Unfortunately for Little, despite the benefits he had grandly claimed for his system of simplifying nomenclature (to the extent of even proposing it as a replacement for the current Linnaean system of binomial nomenclature for organisms), Donomen did not catch on that much. Nevertheless, it's not hard to generate a random Donomen, should you ever need one:
randomDonomen[]:=StringJoin[Riffle[RandomChoice[{"B","D","F","G","H","J","K","L","M","N","P","R","S","T","V","W","Z"},4],RandomChoice[{"A","E","I","O","U"},3]]]
Table[randomDonomen[],{20}]
{PASEZAD,LUBIKEZ,JALITON,VOHEMAW,HOFOLES,HOMIMAL,JELIKAT,KILIZOH,TEHEBAT,VOMAGAN,GOGOBED,KOGUDUF,NEBOFIG,BESORIB,ZESILIH,KOWOTIH,VOBOFEG,GUJEFOP,DOVUDIH,VEGESOD}
Perhaps someone might come up with something catchy; after all, we don't need to stick to Little's proposal to just use it for chemicals. In fact, why not consider a slight generalization of Donomen: a random word with an odd number of letters, but still following Little's original restrictions?
randomDonomen[n_Integer?OddQ]:=With[{q=Quotient[n,2]},StringJoin[Riffle[RandomChoice[{"B","D","F","G","H","J","K","L","M","N","P","R","S","T","V","W","Z"},n-q],RandomChoice[{"A","E","I","O","U"},q]]]]
Table[randomDonomen[9],{20}]
{DIHAVEJIG,NUGIBUBAD,MOKOMEMUL,VIHUBOMEK,HIZOJODOF,JIKUTEBAK,DUGOFUFIW,FAZIWATOS,PULERIBOZ,NIMUSINOM,SAZAFOHOD,ZATAGABED,SAFEGEVAJ,KEMEFEFOJ,WINEJEZUL,WASISOBOR,SETEROZIP,ROBABIZIG,MAFEZOWUF,NOTAWITOB}
Some of these wouldn't sound out of place as brand names. Perhaps Little's system might yet to see its renaissance...

CITE THIS NOTEBOOK

The Donomen naming system​
by J. M.​
Wolfram Community, STAFF PICKS, February 19, 2025
​https://community.wolfram.com/groups/-/m/t/3396835