A101385 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A101385

Array read by antidiagonals: T(n,k) = variant of Knuth's Fibonacci (or circle) product of n and k (A101330).

3, 8, 8, 21, 34, 21, 24, 144, 144, 24, 55, 152, 987, 152, 55, 58, 610, 1008, 1008, 610, 58, 63, 618, 6765, 1032, 6765, 618, 63, 144, 644, 6786, 6820, 6820, 6786, 644, 144, 147, 2584, 6909, 6844, 75025, 6844, 6909, 2584, 147, 152, 2592, 46368, 6972, 75080

(list; table; graph; refs; listen; history; text; internal format)

OFFSET

1,1

COMMENTS

Let n = Sum_{i >= 2} eps(i) Fib_i and k = Sum_{j >= 2} eps(j) Fib_j be the Zeckendorf expansions of n and k, respectively (cf. A035517, A014417). The product of n and k is defined here to be Sum_{i,j} eps(i)*eps(j) Fib_{i*j} (= T(n,k)).

LINKS

Table of n, a(n) for n=1..50.

D. E. Knuth, Fibonacci multiplication, Appl. Math. Lett. 1 (1988), 57-60.

EXAMPLE

Array begins:

3 8 21 24 55 ...

8 34 144 152 ...

21 144 987 ...

24 152 ...

55 ...

MATHEMATICA

zeck[n_Integer] := Block[{k = Ceiling[ Log[ GoldenRatio, n*Sqrt[5]]], t = n, fr = {}}, While[k > 1, If[t >= Fibonacci[k], AppendTo[ fr, 1]; t = t - Fibonacci[k], AppendTo[fr, 0]]; k-- ]; FromDigits[fr]]; kfpv[n_, m_] := Block[{y = Reverse[ IntegerDigits[ zeck[ n]]], z = Reverse[ IntegerDigits[ zeck[ m]]]}, Sum[ y[[i]]*z[[j]]*Fibonacci[(i + 1)(j + 1)], {i, Length[y]}, {j, Length[z]}]]; (* Robert G. Wilson v, Feb 09 2005 *)

Flatten[ Table[ kfpv[i, n - i], {n, 2, 12}, {i, n - 1, 1, -1}]] (* Robert G. Wilson v, Feb 09 2005 *)

CROSSREFS

Cf. A101330, A035517, A014417. Main diagonal is A101633.

First 3 rows give A101643, A101644, A101645.

Sequence in context: A168209 A305513 A209374 * A161432 A229380 A229372

Adjacent sequences: A101382 A101383 A101384 * A101386 A101387 A101388

KEYWORD

nonn,tabl,easy

AUTHOR

N. J. A. Sloane, Jan 25 2005

EXTENSIONS

More terms from David Applegate, Jan 26 2005

STATUS

approved