cp's OEIS Frontend

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.

A130677 Write the English name of 2^n and replace each letter with its rank in the alphabet.

This page as a plain text file.
%I A130677 #24 Feb 11 2025 11:55:25
%S A130677 15,14,5,20,23,15,6,15,21,18,5,9,7,8,20,19,9,24,20,5,5,14,20,8,9,18,
%T A130677 20,25,20,23,15,19,9,24,20,25,6,15,21,18,15,14,5,8,21,14,4,18,5,4,20,
%U A130677 23,5,14,20,25,5,9,7,8,20,20,23,15,8,21,14,4
%N A130677 Write the English name of 2^n and replace each letter with its rank in the alphabet.
%C A130677 The b-file corresponds to the following letters:
%C A130677   ONETWOFOUREIGHTSIXTEENTHIRTYTWOS
%C A130677   IXTYFOURONEHUNDREDTWENTYEIGHTTWO
%C A130677   HUNDREDFIFTYSIXFIVEHUNDREDTWELVE
%C A130677   ONETHOUSANDTWENTYFOURTWOTHOUSAND
%C A130677   FORTYEIGHTFOURTHOUSANDNINETYSIXE
%C A130677   IGHTTHOUSANDONEHUNDREDNINETYTWOS
%C A130677   IXTEENTHOUSANDTHREEHUNDREDEIGHTY
%C A130677   FOURTHIRTYTWOTHOUSANDSEVENHUNDRE
%C A130677   DSIXTYEIGHTSIXTYFIVETHOUSANDFIVE
%C A130677   HUNDREDTHIRTYSIXONEHUNDREDTHIRTY
%C A130677   ONETHOUSANDSEVENTYTWOTWOHUNDREDS
%C A130677   IXTYTWOTHOUSANDONEHUNDREDFORTYFO
%C A130677   URFIVEHUNDREDTWENTYFOURTHOUSANDT
%C A130677   WOHUNDREDEIGHTYEIGHTONEMILLIONFO
%C A130677   RTYEIGHTTHOUSANDFIVEHUNDREDSEVEN
%C A130677   TYSIXTWOMILLIONNINETYSEVENTHOUSA
%C A130677   NDONEHUNDREDFIFTYTWOFOURMILLIONO
%C A130677   NEHUNDREDNINETYFOURTHOUSANDTHREE
%C A130677   HUNDREDFOUREIGHTMILLIONTHREEHUND
%C A130677   REDEIGHTYEIGHTTHOUSANDSIXHUNDRED
%C A130677   EIGHTSIXTEENMILLIONSEVENHUNDREDS
%C A130677   EVENTYSEVENTHOUSANDTWOHUNDREDSIX
%C A130677   TEEN. - _Georg Fischer_, Jun 23 2020
%H A130677 Georg Fischer, <a href="/A130677/b130677.txt">Table of n, a(n) for n = 0..707</a>
%e A130677 One, two, four, eight, ... gives 15,14,5, 20,23,15, 6,15,21,18, 5,9,7,8,20, ...
%t A130677 s={}; Do[s=Join[s, LetterNumber/@Select[Characters[IntegerName[2^n]],LetterQ]], {n, 0, 8}]; s (* _James C. McMahon_, Feb 11 2025 *)
%Y A130677 Suggested by A131744.
%K A130677 nonn,word,easy
%O A130677 0,1
%A A130677 _N. J. A. Sloane_, Sep 21 2007
%E A130677 More terms from _Sean A. Irvine_, Sep 27 2011