|
%I #13 Dec 23 2018 16:13:03
%S 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,
%T 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,
%U 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
%N a(n) = floor(2^(n/phi(n))), where phi is A000010(n).
%H Antti Karttunen, <a href="/A086152/b086152.txt">Table of n, a(n) for n = 1..16384</a>
%H Antti Karttunen, <a href="/A086152/a086152.txt">Data supplement: n, a(n) computed for n = 1..100000</a>
%p with(numtheory); A086152:=n->floor(2^(n/phi(n))); seq(A086152(n), n=1..100); # _Wesley Ivan Hurt_, Nov 11 2013
%t Table[Floor[2^(w/EulerPhi[w])//N], {w, 1, 50}]
%o (PARI) A086152(n) = sqrtnint(2^n,eulerphi(n)); \\ _Antti Karttunen_, Dec 23 2018
%Y Cf. A000010, A017910.
%K nonn
%O 1,1
%A _Labos Elemer_, Aug 06 2003
%E Definition corrected by _Franklin T. Adams-Watters_, Nov 20 2006
|
