login
A086152
a(n) = floor(2^(n/phi(n))), where phi is A000010(n).
1
2, 4, 2, 4, 2, 8, 2, 4, 2, 5, 2, 8, 2, 5, 3, 4, 2, 8, 2, 5, 3, 4, 2, 8, 2, 4, 2, 5, 2, 13, 2, 4, 3, 4, 2, 8, 2, 4, 3, 5, 2, 11, 2, 4, 3, 4, 2, 8, 2, 5, 3, 4, 2, 8, 2, 5, 2, 4, 2, 13, 2, 4, 3, 4, 2, 9, 2, 4, 2, 7, 2, 8, 2, 4, 3, 4, 2, 9, 2, 5, 2, 4, 2, 11, 2, 4, 2, 4, 2, 13, 2, 4, 2, 4, 2, 8, 2, 5, 3, 5, 2, 9, 2
OFFSET
1,1
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
Sequence in context: A031883 A366261 A375200 * A194577 A334970 A274708
KEYWORD
nonn
AUTHOR
Labos Elemer, Aug 06 2003
EXTENSIONS
Definition corrected by Franklin T. Adams-Watters, Nov 20 2006
STATUS
approved