|
| |
|
|
A101643
|
|
First row of array in A101385.
|
|
1
| |
|
|
3, 8, 21, 24, 55, 58, 63, 144, 147, 152, 165, 168, 377, 380, 385, 398, 401, 432, 435, 440, 987, 990, 995, 1008, 1011, 1042, 1045, 1050, 1131, 1134, 1139, 1152, 1155, 2584, 2587, 2592, 2605, 2608, 2639, 2642, 2647, 2728, 2731, 2736, 2749, 2752, 2961, 2964
(list; graph; refs; listen; history; internal format)
|
|
|
|
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, 1], {n, 48}] (from Robert G. Wilson v Feb 09 2005)
|
|
|
CROSSREFS
| Cf. A101385
Sequence in context: A066212 A171437 A075719 * A046815 A203848 A160404
Adjacent sequences: A101640 A101641 A101642 * A101644 A101645 A101646
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Jan 25 2005, Jan 27 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
|
| |
|
|
