Skip to content

Instantly share code, notes, and snippets.

@butchi
Created October 7, 2014 15:58
Show Gist options
  • Save butchi/1ef05aa7125b0fe4d3e7 to your computer and use it in GitHub Desktop.
Save butchi/1ef05aa7125b0fe4d3e7 to your computer and use it in GitHub Desktop.
yukicoder no.36
(* http://yukicoder.me/problems/27 *)
h[n_] := With[{a = FactorInteger[n]}, ! MatchQ[a, {{_, 1}}] && ! MatchQ[a, {{_, 1}, {_, 1}}] && ! MatchQ[a, {{_, 2}}]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment