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.

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.

Links

Table of n, a(n) for n=1..26.

Wikipedia, NATO phonetic alphabet.

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

Adjacent sequences: A346777 A346778 A346779 * A346781 A346782 A346783

Keyword

easy,fini,full,nonn,word

Author

Jesse J. Cardin, Aug 03 2021

Status

approved