OFFSET
1,1
COMMENTS
The sequence has 179540 terms, the last being 98765432. - Giovanni Resta, Mar 21 2013
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
13458 / 6729 = 2
17469 / 5823 = 3
15768 / 3942 = 4
...
98765432 / 1 = 98765432
MATHEMATICA
f[w_] := Select[Floor[w/10^#]/Mod[w, 10^#] & /@ {1, 2, 3, 4}, IntegerQ]; seq = Union[Flatten[f /@ (FromDigits /@ Permutations[ Range@9])]]; Length[seq] (* Giovanni Resta, Mar 21 2013 *)
CROSSREFS
KEYWORD
base,easy,fini,nonn
AUTHOR
Leonid Broukhis, May 21 2003
EXTENSIONS
a(37)-a(60) from Giovanni Resta, Mar 21 2013
STATUS
approved