cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A078168 Numbers k such that phi(k) is a perfect 8th power.

This page as a plain text file.
%I A078168 #15 Apr 24 2020 11:01:39
%S A078168 1,2,257,512,514,544,640,680,768,816,960,1020,65537,131072,131074,
%T A078168 131584,139264,139808,163840,164480,174080,174760,196608,197376,
%U A078168 208896,209712,245760,246720,261120,262140,1682227,1683109,1683559,1683937
%N A078168 Numbers k such that phi(k) is a perfect 8th power.
%H A078168 Amiram Eldar, <a href="/A078168/b078168.txt">Table of n, a(n) for n = 1..7500</a>
%e A078168 phi of the sequence includes 1, 256, 65536, 1679616, etc.; powers arise several times; a(3) = A053576(7) = 257; in sequence smoother ranges and quite large jumps arise when power of new numbers appear as phi-values.
%t A078168 k=8; Do[s=EulerPhi[n]^(1/k); If[IntegerQ[s], Print[n]], {n, 1, 10000000}]
%t A078168 Select[Range[2*10^6],IntegerQ[Surd[EulerPhi[#],8]]&] (* _Harvey P. Dale_, Oct 20 2014 *)
%o A078168 (PARI) is(n)=ispower(eulerphi(n),8) \\ _Charles R Greathouse IV_, Apr 24 2020
%Y A078168 Cf. A039770 (square), A039771 (cube), A078164 (4th), A078165 (5th), A078166 (6th), A078167 (7th), A078168 (8th, this sequence), A078169 (9th), A078170 (10th power), A001317, A053576, A045544, A000010.
%K A078168 nonn
%O A078168 1,2
%A A078168 _Labos Elemer_, Nov 27 2002