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 A356627 #10 Sep 30 2022 23:09:53 %S A356627 2,3,5,7,11,17,29,37,41,59,67,71,97,127,149,191,223,269,307,347,419, %T A356627 431,557,563,569,587,593,599,641,727,809,937,967,1009,1213,1277,1423, %U A356627 1861,1973,2237,2267,2657,3163,3299,3449,3457,3527,3907,4001,4211,4441,4637 %N A356627 Primes whose powers appear in A332979. %C A356627 Maxima of row n > 0 of A005940, A182944, and A182945 are powers of these primes. %C A356627 Indices k of primes, A000040(k), listed here show an interesting correlation with the function f(k) = A000040(k) - A302334(k). - _Peter Munn_, Sep 29 2022 %H A356627 Michael De Vlieger, <a href="/A356627/b356627.txt">Table of n, a(n) for n = 1..100</a> %H A356627 Michael De Vlieger, <a href="/A356627/a356627.png">Plot A332979(n) = p^e at (e, pi(p))</a> for n = 1..360. The primes p are labeled in bold and appear in this sequence. The least and greatest exponents of p^e are labeled in italic. %e A356627 5 | A332979(5..7), thus 5 is in the sequence. %e A356627 7 | A332979(8), thus 7 is in the sequence. %e A356627 13 does not divide any term in A332979, so it is not a term in this sequence. %t A356627 Prime@ Union@ Table[MaximalBy[Table[{k, n - k}, {k, n}], Prime[#1]^#2 & @@ # &][[1, 1]], {n, 2^10}] %t A356627 (* or use concise file in A332979 *) %t A356627 Prime /@ Union@ Rest@ Map[ToExpression@ StringTrim[#, "p"] & @@ StringSplit[#, "^"] &, Import["https://oeis.org/A332979/a332979.txt", "Data"][[All, -1]]] %Y A356627 Cf. A000040, A000961, A005940, A180944, A180945, A302334, A332979. %K A356627 nonn %O A356627 1,1 %A A356627 _Michael De Vlieger_, Sep 27 2022