|
Search: id:A079505
|
|
|
| A079505 |
|
Consider number k written in base b with N digits. We build A_k a square matrix N X N with the digits of k, k-1,...,k-N+1 in base b. The sequence Det[A_k] is null for k greater than b^3-b+1 (except if b=2). |
|
+0
1
|
|
| 14, 25, 61, 121, 211, 337, 505, 721, 991, 1321, 1717, 2185, 2731, 3361, 4081, 4897, 5815, 6841, 7981, 9241, 10627, 12145, 13801, 15601, 17551, 19657, 21925, 24361, 26971
(list; graph; listen)
|
|
|
OFFSET
|
2,1
|
|
|
COMMENT
|
|Det[A_k]| is at most (b-1)^2 and the last value before the infinite zero list is 1-b. It is exactly b^3-b+1 (cf. A061600) except for b=2, though I did not prove it...
|
|
FORMULA
|
a(n)=n^3-n+1 (except for n=2, a(2)=14)
|
|
EXAMPLE
|
a(3)=25 because the determinant sequence in base 3 is 1, 2, 2, -1, -1, 4, -2, -2, -2, 2, 0, 1, -1, 0, 1, -1, 0, -4, 4, 0, 2, -2, 0, 2, -2, 0, 0, 0, 0, 0, 0, 0.... and Det[A_k]=0 for k > 25.
|
|
MAPLE
|
lb = {}; Do[ls = {}; Do[nt = Length[IntegerDigits[k, b]]; Ak = Table[IntegerDigits[k - i, b, nt], {i, 0, nt - 1}]; AppendTo[ls, Det[Ak]], {k, 1, b^4}]; pp = Position[ls, -b + 1][[ -1, 1]]; AppendTo[lb, pp], {b, 2, 10}]; lb (*gives the first 9 terms*)
|
|
CROSSREFS
|
Cf. A061600.
Sequence in context: A031075 A020227 A032608 this_sequence A039604 A030786 A094163
Adjacent sequences: A079502 A079503 A079504 this_sequence A079506 A079507 A079508
|
|
KEYWORD
|
base,nonn,uned
|
|
AUTHOR
|
Carlos Alves (cjsalves(AT)gmail.com), Jan 21 2003
|
|
|
Search completed in 0.002 seconds
|
