A071420 Duplicate of A031139.
7, 8, 5, 5, 3, 4, 4, 6, 9, 7, 8, 8, 7, 8, 5, 5, 3, 4, 4, 6, 9, 7, 8, 8, 7, 8, 5, 5, 3, 4, 4, 6, 9
Offset: 1
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
For example, January is pronounced with four syllables: Jan-u-ar-y.
a(n)=digits(344121122333)[n%12+1] \\ M. F. Hasler, Feb 25 2018
a(1) = 4 since January in Turkish is "Ocak" which has four letters.
LetterNumber/@Table[DateString[{2024,m,1},"MonthName"],{m,12}]//Flatten (* Harvey P. Dale, Jul 28 2024 *)
Vec( Vecsmall( "JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember" ))%32
1 kin = 1 day. 1 uinal = 20 kins = 20 days. 1 tun = 18 uinals = 360 days. 1 katun = 20 tuns = 7200 days. 1 baktun = 20 katuns = 144000 days. 13 baktuns = 1 great cycle or Maya era = 1872000 days (approximately 5125.37 solar years).
Vecsmall("JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember")
Vec( Vecsmall( "janvierfevriermarsavrilmaijuinjuilletaoutseptembreoctobrenovembredecembre" ))%32
a(1) = 8, because HYDROGEN uses 8 letters. a(2) = 6, because HELIUM uses 6 letters. a(3) = 7, because LITHIUM uses 7 letters. and so on. Note that a(13) = 9, not 8, since the IUPAC spellings are used.
Length @ Characters @ ElementData[#, "Name"] & /@ Range[118] (* Amiram Eldar, Jan 25 2020, generates all the terms in the data section with two exceptions: a(13) assumes the name "Aluminum" instead of "Aluminium" and a(55) assumes the name "Cesium" instead of "Caesium" *)
Comments