Logo

Greetings from The On-Line Encyclopedia of Integer Sequences!

Hints

Search: id:A101633
Displaying 1-1 of 1 results found. page 1
     Format: long | short | internal | text      Sort: relevance | references | number      Highlight: on | off
A101633 Main diagonal of array in A101385. +0
5
3, 34, 987, 1032, 75025, 75138, 76279, 14930352, 14930643, 14935554, 15024075, 15024408, 7778742049, 7778742806, 7778763975, 7779378658, 7779379457, 7797272004, 7797272871, 7797295150, 10610209857723, 10610209859700 (list; graph; listen)
OFFSET

1,1

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]}]]; (from Robert G. Wilson v Feb 09 2005)

Table[ kfpv[n, n], {n, 18}] (from Robert G. Wilson v Feb 09 2005)

CROSSREFS

Cf. A101385

Sequence in context: A109521 A069718 A077144 this_sequence A054783 A102104 A054287

Adjacent sequences: A101630 A101631 A101632 this_sequence A101634 A101635 A101636

KEYWORD

nonn

AUTHOR

njas, Jan 26 2005

EXTENSIONS

More terms from David Applegate (david(AT)research.att.com), Jan 26 2005

More terms from Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 09 2005

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 November 30 22:12 EST 2008. Contains 150989 sequences.


AT&T Labs Research