Advertisement
MatsGranvik

Palindromicity means negated reversals of sequence in column

Mar 28th, 2020
270
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.42 KB | None | 0 0
  1. "Palindromicity means negated reversals of sequences in columns:"
  2.  
  3. (*start*)
  4. (*Mathematica*)
  5. Clear[a, n, k, m, nn];
  6. nn = 12;
  7. a[n_] := Total[MoebiusMu[Divisors[n]]*Divisors[n]];
  8. TableForm[
  9. Table[Table[
  10. If[n <= k, Sum[a[GCD[m, k]], {m, 1, n}], ""], {k, 1, nn}], {n, 1,
  11. nn}]]
  12. TableForm[
  13. Table[Table[
  14. If[And[n >= k - 1, n <= 2*k - 2], Sum[a[GCD[m, k]], {m, k, n}],
  15. ""], {k, 1, nn}], {n, 1, 2*nn}]]
  16. (*end*)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement