|
| |
|
|
A035930
|
|
Maximal product of any two numbers whose concatenation is n.
|
|
8
| |
|
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 0, 3, 6, 9, 12, 15, 18, 21, 24, 27, 0, 4, 8, 12, 16, 20, 24, 28, 32, 36, 0, 5, 10, 15, 20, 25, 30, 35, 40, 45, 0, 6, 12, 18, 24, 30, 36, 42, 48, 54, 0, 7, 14, 21, 28, 35, 42, 49, 56, 63, 0, 8, 16, 24, 32, 40, 48, 56, 64, 72, 0, 9, 18, 27, 36, 45, 54, 63, 72, 81, 0, 10, 20, 30, 40, 50, 60, 70
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,13
|
|
|
LINKS
| Alois P. Heinz, Table of n, a(n) for n = 0..9999
|
|
|
EXAMPLE
| a(341)=max(34*1,3*41)=123.
|
|
|
MAPLE
| a:= proc(n) local l, m; l:= convert (n, base, 10); m:= nops(l); `if` (m<2, 0, max (seq (parse (cat (seq (l[m-i], i=0..j-1))) *parse (cat (seq (l[m-i], i=j..m-1))), j=1..m))) end: seq (a(n), n=0..120); [From Alois P. Heinz (heinz(AT)hs-heilbronn.de), May 22 2009]
|
|
|
PROG
| (Haskell)
a035930 n | n < 10 = 0
| otherwise = maximum $ zipWith (*)
(map read $ init $ tail $ inits $ show n)
(map read $ tail $ init $ tails $ show n)
-- Reinhard Zumkeller, Aug 14 2011
|
|
|
CROSSREFS
| Different from A007954. Cf. A035931-A035935.
Sequence in context: A088117 A171765 A080464 * A195833 A139281 A059707
Adjacent sequences: A035927 A035928 A035929 * A035931 A035932 A035933
|
|
|
KEYWORD
| nonn,base,nice
|
|
|
AUTHOR
| Erich Friedman (erich.friedman(AT)stetson.edu)
|
|
|
EXTENSIONS
| An erroneous formula was deleted by N. J. A. Sloane (njas(AT)research.att.com), Dec 23 2008
|
| |
|
|
