OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..16384
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000
MAPLE
with(numtheory); A086152:=n->floor(2^(n/phi(n))); seq(A086152(n), n=1..100); # Wesley Ivan Hurt, Nov 11 2013
MATHEMATICA
Table[Floor[2^(w/EulerPhi[w])//N], {w, 1, 50}]
PROG
(PARI) A086152(n) = sqrtnint(2^n, eulerphi(n)); \\ Antti Karttunen, Dec 23 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 06 2003
EXTENSIONS
Definition corrected by Franklin T. Adams-Watters, Nov 20 2006
STATUS
approved