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.
%I A379156 #10 Dec 24 2024 22:13:38 %S A379156 6,14,41,359,3589 %N A379156 Positions in A246655 (prime powers) of terms q such that there is no prime between q and the next prime power. %C A379156 The powers of primes themselves are 8, 25, 121, 2187, 32761, ... (A068315). %F A379156 A246655(a(n)) = A068315(n). %t A379156 v=Select[Range[100],PrimePowerQ]; %t A379156 Select[Range[Length[v]-1],FreeQ[Range[v[[#]],v[[#+1]]],_?PrimeQ]&] %Y A379156 The prime powers themselves are A068315, for just one prime A379157. %Y A379156 For perfect powers instead of prime powers we have A274605. %Y A379156 Positions of 0 in A366835. %Y A379156 For just one prime we have A379155, for perfect powers A378368. %Y A379156 A000015 gives the least prime power >= n. %Y A379156 A000040 lists the primes, differences A001223. %Y A379156 A000961 lists the powers of primes, differences A057820. %Y A379156 A031218 gives the greatest prime power <= n. %Y A379156 A065514 gives the greatest prime power < prime(n), difference A377289. %Y A379156 A131605 finds perfect powers that are not prime powers. %Y A379156 A246655 lists the prime powers. %Y A379156 A366833 counts prime powers between primes, see A053607, A304521. %Y A379156 Cf. A025474, A046933, A067871, A080101, A080769, A175106, A178700, A345531, A377281, A377287, A377432, A377434. %K A379156 nonn,more %O A379156 1,1 %A A379156 _Gus Wiseman_, Dec 22 2024