|
Search: id:A035934
|
|
|
| A035934 |
|
Smallest number which can be made to take n steps to reach 0 under "k -> any product of 2 numbers whose concatenation is k". |
|
+0
2
|
|
| 0, 1, 11, 26, 39, 77, 117, 139, 429, 529, 777, 1117, 1669, 2238, 2993, 3697, 4779, 5319, 5919, 10998, 11794, 14989, 21179, 26869, 27797, 36177, 38993, 62958, 74297, 85797, 95339, 113319, 125919, 139919, 199683, 201799, 247817, 333329, 360497, 419926
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
EXAMPLE
|
a(6)=117 since 117->77->49->36->18->8->0
|
|
MATHEMATICA
|
tbl=Table[1, {10}]; Do[tbl=Append[tbl, b=IntegerDigits[k]; If[(First[b]==0||Last[b]==0), 1, Max[Part[tbl, Table[FromDigits[Take[b, i]]*FromDigits[Take[b, i-Length[b]]], {i, 1, Length[b]-1}]]]+1]], {k, 11, 170000}]; tbl; m=Max[tbl]; Prepend[Flatten[Table[Position[tbl, i, 1, 1], {i, 1, m}]], 0]
|
|
CROSSREFS
|
Cf. A035930-A035935.
Sequence in context: A066956 A137015 A002154 this_sequence A035932 A035933 A035935
Adjacent sequences: A035931 A035932 A035933 this_sequence A035935 A035936 A035937
|
|
KEYWORD
|
nonn,base,nice
|
|
AUTHOR
|
Erich Friedman (erich.friedman(AT)stetson.edu)
|
|
EXTENSIONS
|
More terms from Naohiro Nomoto (6284968128(AT)geocities.co.jp), Apr 11 2001
More terms from Vit Planocka (planocka(AT)mistral.cz), Feb 01 2003
More terms from Martin Fuller (martin_n_fuller(AT)btinternet.com), Jun 02 2006
|
|
|
Search completed in 0.002 seconds
|
