Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A079505
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
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

page 1

Search completed in 0.002 seconds

Lookup | Welcome | Find friends | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
More pages | Superseeker | Maintained by N. J. A. Sloane (njas@research.att.com)

Last modified July 25 07:41 EDT 2008. Contains 142293 sequences.


AT&T Labs Research