cp's OEIS Frontend

A072959 Using the US English names for the nonnegative integers, assign each letter a numerical value as in A073327 (A=1, B=2, ..., Z=26), treat the name as a base-27 integer, and convert to decimal.

%I A072959 #23 Nov 07 2024 23:08:54
%S A072959 515904,11318,15216,10799546,129618,125258,14118,10211981,2839691,
%T A072959 282506,14729,78236429,299309045,212445531527,68884716992,2457249197,
%U A072959 7503281492,5427065792075,55893641747,150135668600,299310469
%N A072959 Using the US English names for the nonnegative integers, assign each letter a numerical value as in A073327 (A=1, B=2, ..., Z=26), treat the name as a base-27 integer, and convert to decimal.
%C A072959 For names with spaces (e.g., ONE HUNDRED), treat each space as a '0', or placeholder, in the base-27 system. (Therefore ONE HUNDRED = 3196540902115084.)
%C A072959 English name for the number n transliterated into Lee Sallows's base-27 system.
%D A072959 M. J. Halm, Sequences (Re)discovered, Mpossibilities 81 (Aug. 2002).
%H A072959 M. J. Halm, <a href="http://michaelhalm.tripod.com/jootsy.htm">Jootsy Calculus</a>.
%F A072959 In Sallows's system, space = 0, A = 1, B = 2, etc. to Z = 26, so that words and phrases, even number names, can be transformed into numbers.
%e A072959 a(1) = 11318 because o(729) + n(27) + e = 10935 + 378 + 5 = 11318.
%e A072959 a(2) = 15216 because "TWO" in base 27 gives 20*27^2 + 23*27 + 15 = 15216.
%p A072959 lSallow27 := proc(s)
%p A072959 local a,i,c ;
%p A072959 a := 0 ;
%p A072959 for i from 1 to length(s) do
%p A072959 c := substring(s,i) ;
%p A072959 if c = " " then
%p A072959 a := 27*a ;
%p A072959 else
%p A072959 a := 27*a + StringTools[Ord](c) -96 ;
%p A072959 fi;
%p A072959 od:
%p A072959 a ;
%p A072959 end:
%p A072959 enums := ["one","two","three","four","five","six","seven","eight","nine","ten",
%p A072959 "eleven","twelve", "thirteen","fourteen","fifteen","sixteen","seventeen",
%p A072959 "eighteen","nineteen","twenty"]:
%p A072959 for i from 1 to nops(enums) do
%p A072959 printf("%d %d\n",i, lSallow27(enums[i])) ;
%p A072959 od:
%p A072959 # _R. J. Mathar_
%K A072959 easy,nonn,word
%O A072959 0,1
%A A072959 _Michael Joseph Halm_, Aug 13 2002
%E A072959 Definition rephrased by _Matthew Goers_, Nov 03 2009
%E A072959 The old version of this sequence was wrong. _Don Reble_ and _R. J. Mathar_ supplied a corrected version. Edited by _N. J. A. Sloane_, Sep 20 2009
%E A072959 Edited by _N. J. A. Sloane_, Aug 15 2010 at the suggestion of _D. S. McNeil_
%E A072959 Offset corrected by _Sean A. Irvine_, Nov 07 2024