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

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, 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, 23, 5, 14, 20, 25, 5, 9, 7, 8, 20, 20, 23, 15, 8, 21, 14, 4

Offset: 0

Author

N. J. A. Sloane, Sep 21 2007

Keywords

• nonn
• word
• easy

Comments

The b-file corresponds to the following letters:

ONETWOFOUREIGHTSIXTEENTHIRTYTWOS

IXTYFOURONEHUNDREDTWENTYEIGHTTWO

HUNDREDFIFTYSIXFIVEHUNDREDTWELVE

ONETHOUSANDTWENTYFOURTWOTHOUSAND

FORTYEIGHTFOURTHOUSANDNINETYSIXE

IGHTTHOUSANDONEHUNDREDNINETYTWOS

IXTEENTHOUSANDTHREEHUNDREDEIGHTY

FOURTHIRTYTWOTHOUSANDSEVENHUNDRE

DSIXTYEIGHTSIXTYFIVETHOUSANDFIVE

HUNDREDTHIRTYSIXONEHUNDREDTHIRTY

ONETHOUSANDSEVENTYTWOTWOHUNDREDS

IXTYTWOTHOUSANDONEHUNDREDFORTYFO

URFIVEHUNDREDTWENTYFOURTHOUSANDT

WOHUNDREDEIGHTYEIGHTONEMILLIONFO

RTYEIGHTTHOUSANDFIVEHUNDREDSEVEN

TYSIXTWOMILLIONNINETYSEVENTHOUSA

NDONEHUNDREDFIFTYTWOFOURMILLIONO

NEHUNDREDNINETYFOURTHOUSANDTHREE

HUNDREDFOUREIGHTMILLIONTHREEHUND

REDEIGHTYEIGHTTHOUSANDSIXHUNDRED

EIGHTSIXTEENMILLIONSEVENHUNDREDS

EVENTYSEVENTHOUSANDTWOHUNDREDSIX

TEEN. - Georg Fischer, Jun 23 2020

Examples

			One, two, four, eight, ... gives 15,14,5, 20,23,15, 6,15,21,18, 5,9,7,8,20, ...
		

Links

• Georg Fischer, Table of n, a(n) for n = 0..707

Crossrefs

Suggested by A131744.

Programs

Mathematica

s={}; Do[s=Join[s, LetterNumber/@Select[Characters[IntegerName[2^n]],LetterQ]], {n, 0, 8}]; s (* James C. McMahon, Feb 11 2025 *)

Extensions

More terms from Sean A. Irvine, Sep 27 2011