A086152 a(n) = floor(2^(n/phi(n))), where phi is A000010(n).

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

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

Cf. A000010, A017910.

Sequence in context: A128886 A031883 A366261 * A194577 A334970 A274708

Adjacent sequences: A086149 A086150 A086151 * A086153 A086154 A086155

Keyword

nonn

Author

Labos Elemer, Aug 06 2003

Extensions

Definition corrected by Franklin T. Adams-Watters, Nov 20 2006

Status

approved