|
Search: id:A101645
|
|
| |
|
| 21, 144, 987, 1008, 6765, 6786, 6909, 46368, 46389, 46512, 47355, 47376, 317811, 317832, 317955, 318798, 318819, 324576, 324597, 324720, 2178309, 2178330, 2178453, 2179296, 2179317, 2185074, 2185095, 2185218, 2224677, 2224698
(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, 3], {n, 30}] (from Robert G. Wilson v Feb 09 2005)
|
|
CROSSREFS
|
Cf. A101385
Sequence in context: A033595 A107731 A003702 this_sequence A060493 A041850 A078396
Adjacent sequences: A101642 A101643 A101644 this_sequence A101646 A101647 A101648
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
njas, 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
|
|
|
Search completed in 0.002 seconds
|
