editing
approved
editing
approved
f[n_] := Select[Range[n], GCD[ #, n] == 1 &]; g[n_] := Select[Range[n], Times @@ GCD[f[ # ], n] == 1 &]; Flatten@Table[g[n], {n, 17}] (* _Ray Chandler_, Dec 24 2006 *)
approved
editing
proposed
approved
editing
proposed
Michael De Vlieger, <a href="/A126260/b126260.txt">Table of n, a(n) for n = 1..12325</a> (rows 1 <= n <= 300).
Table[Select[Range@ n, Function[k, AllTrue[Select[Range@ k, CoprimeQ[#, k] &], CoprimeQ[#, n] &]]], {n, 17}] // Flatten (* Michael De Vlieger, Aug 21 2017 *)
approved
editing
Leroy Quet , Dec 22 2006
_Leroy Quet _ Dec 22 2006
Extended by _Ray Chandler (rayjchandler(AT)sbcglobal.net), _, Dec 24 2006
Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)
nonn,tabf,new
Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)
nonn,tabf,new
Leroy Quet (qq-quet(AT)mindspring.com), Dec 22 2006