Advertisement
Guest User

Untitled

a guest
Jul 1st, 2015
431
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.34 KB | None | 0 0
  1. n = 12;
  2. bigInt = FromDigits[
  3. Flatten[ (ConstantArray[#[[2]], #[[1]]]) & /@ ({{n - 1, 1, n}, {9,
  4. 8, 9}} // Transpose)]]
  5. digs = RealDigits[1/bigInt, 10, n*40];
  6. fibQ = (FromDigits /@
  7. Partition[Join[Table[0, {-digs[[2]]}], digs[[1]]], n][[2 ;;]]);
  8. {fibQ, Table[Fibonacci[n], {n, fibQ // Length}]} //
  9. Transpose // TableForm
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement