Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- n = 12;
- bigInt = FromDigits[
- Flatten[ (ConstantArray[#[[2]], #[[1]]]) & /@ ({{n - 1, 1, n}, {9,
- 8, 9}} // Transpose)]]
- digs = RealDigits[1/bigInt, 10, n*40];
- fibQ = (FromDigits /@
- Partition[Join[Table[0, {-digs[[2]]}], digs[[1]]], n][[2 ;;]]);
- {fibQ, Table[Fibonacci[n], {n, fibQ // Length}]} //
- Transpose // TableForm
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement