|
%I #42 Mar 26 2021 12:43:06
%S 4,24,84672,1852200,829785600,20910597120,92215733299200,
%T 1239789303244800000,887165996513213819259682435576627200000000
%N Numbers k such that the product of the lengths of the words in the name of k in American English is equal to k.
%C This sequence uses American English spellings; e.g., 84672 ends in "six hundred seventy-two", not "six hundred and seventy-two" (cf. A006944). Also, for purposes of this sequence, hyphens are treated as spaces, so "seventy-two" is counted as two words ("seventy two"). - _Jon E. Schoenfield_, Nov 18 2018
%C a(10) > 10^138 if it exists. - _Jonathan Pappas_, Mar 12 2021
%H Jonathan Pappas, <a href="https://github.com/JonnyGamer/A058230">Python program</a>
%e 84672 = "eighty four thousand six hundred seventy two" = 6*4*8*3*7*7*3 = 84672.
%t Select[Range[10^5],Times@@StringLength/@StringSplit[StringReplace[#~IntegerName~"Words",{","->"","-"->" "}]]==#&] (* _Giorgos Kalogeropoulos_, Mar 20 2021 *)
%o (Python)
%o # See Python program link.
%o # _Jonathan Pappas_, Mar 12 2021
%K dumb,nonn,word
%O 1,1
%A _Michael Kleber_, Dec 01 2000
%E a(7)-a(9) from _Jonathan Pappas_, Mar 12 2021
| 