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 A380522 #14 Jan 26 2025 20:44:00 %S A380522 11,29,127,32771,79531,97367 %N A380522 Primes p such that between p and the previous prime there exist 2 distinct integers which are a square and a cube, respectively. %C A380522 There are no other terms < 2*10^30. %e A380522 127 is a term because between prime 127 and previous prime 113 there exists a square 121 and a cube 125. %t A380522 b[n_] := If[IntegerQ@Sqrt@n, 0, p = NextPrime[n^3]; %t A380522 If[Ceiling[Sqrt[NextPrime[p,-1]]]^2 >= p, 0, p]]; Select[Array[b@# &, 1000], # > 0 &] %Y A380522 Cf. A053706, A380521, A380523. %K A380522 nonn,hard,more %O A380522 1,1 %A A380522 _Zhining Yang_, Jan 26 2025