|
| |
|
|
A080203
|
|
Steffi sequence; the numbers of pairs of unequal permutations of all the digits 1, ..., b-1 in base b whose ratio is an integer.
|
|
1
| | |
|
|
|
OFFSET
| 2,4
|
|
|
COMMENTS
| Terms computed by Michael Trott.
|
|
|
LINKS
| Eric Weisstein's World of Mathematics, Steffi Problem
|
|
|
EXAMPLE
| In base 2, there are no solutions for 1, so a(2)=0. In base 3, there are no solutions for 12, so a(3)=0. In base 4, there is a single solutions for 123, so a(4)=1. In base 5, there is a single solution with the digits 1234: 4312_5/1234_5 = 3, so a(5)=1.
|
|
|
MATHEMATICA
| f[n_] := Block[{p = FromDigits[ #, n] & /@ Permutations[ Range[n - 1]]}, Sum[ Length[ Select[ p/p[[i]], IntegerQ[ # ] &]], {i, (n - 1)!}] - (n - 1)! ]; Table[ f[n], {n, 2, 9}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jul 15 2005)
|
|
|
CROSSREFS
| T(b-1, b) entries of A080202.
Sequence in context: A040606 A091736 A126837 * A040605 A065910 A096521
Adjacent sequences: A080200 A080201 A080202 * A080204 A080205 A080206
|
|
|
KEYWORD
| nonn,hard,more
|
|
|
AUTHOR
| Eric Weisstein (eric(AT)weisstein.com), Feb 05, 2003
|
| |
|
|
