login
A346780
Using the NATO phonetic word for each letter, the last letter of the word is used for the next word until a repeated word would be necessary. This sequence shows the number of words for each letter.
0
1, 3, 4, 2, 3, 4, 5, 3, 2, 4, 3, 2, 4, 3, 2, 2, 5, 2, 2, 3, 5, 3, 5, 5, 4, 6
OFFSET
1,2
COMMENTS
Each letter stops with 1 of 2 possible loops:
Alfa loops on itself as it ends with 'a'
Oscar and Romeo loop onto each other with 'o' and 'r'.
Alfa has the shortest sequence with 1. Zulu has the longest sequence with 6.
EXAMPLE
AlfA BravO CharliE DeltA EchO FoxtroT GolF HoteL IndiA JulieT KilO LimA MikE NovembeR OscaR PapA QuebeC RomeO SierrA TangO UniforM VictoR WhiskeY X-raY YankeE ZulU
Alfa (1)
Bravo Oscar Romeo (3)
Charlie Echo Oscar Romeo (4)
Delta Alfa (2)
Echo Oscar Romeo (3)
Foxtrot Tango Oscar Romeo (4)
Golf Foxtrot Tango Oscar Romeo (5)
Hotel Lima Alfa (3)
India Alfa (2)
Juliet Tango Oscar Romeo (4)
Kilo Oscar Romeo (3)
Lima Alfa (2)
Mike Echo Oscar Romeo (4)
November Romeo Oscar (3)
Oscar Romeo (2)
Papa Alfa (2)
Quebec Charlie Echo Oscar Romeo (5)
Romeo Oscar (2)
Sierra Alfa (2)
Tango Oscar Romeo (3)
Uniform Mike Echo Oscar Romeo (5)
Victor Romeo Oscar (3)
Whiskey Yankee Echo Oscar Romeo (5)
X-ray Yankee Echo Oscar Romeo (5)
Yankee Echo Oscar Romeo (4)
Zulu Uniform Mike Echo Oscar Romeo (6)
MATHEMATICA
Block[{w = {"aa", "bo", "ce", "da", "eo", "ft", "gf", "hl", "ia", "jt", "ko", "la", "me", "nr", "or", "pa", "qc", "ro", "sa", "to", "um", "vr", "wy", "xy", "ye", "zu"}}, Array[-1 + Length@ NestWhileList[Function[c, Select[w, StringPart[#, 1] == c &][[1]]][StringPart[#, -1]] &, w[[#]], Unequal, All] &, 26]] (* Michael De Vlieger, Aug 04 2021 *)
CROSSREFS
Cf. A003103.
Sequence in context: A117966 A303932 A121891 * A271590 A232115 A275529
KEYWORD
easy,fini,full,nonn,word
AUTHOR
Jesse J. Cardin, Aug 03 2021
STATUS
approved