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 A380523 #16 Jan 31 2025 11:56:24 %S A380523 8,27,125,32768,79507,97336 %N A380523 Positive cubes k such that there are no primes between k and the nearest square that is not k. %C A380523 There are no other terms < 2*10^30. %e A380523 125 is a term because it is a cube and there are no primes between 125 and 121, its nearest square. %t A380523 b[n_] := If[IntegerQ@Sqrt@n, 0, p = NextPrime[n^3]; %t A380523 If[Ceiling[Sqrt[NextPrime[p, -1]]]^2 >= p, 0, n^3]]; %t A380523 Select[Array[b@# &, 1000], # > 0 &] %Y A380523 Cf. A053706, A380521, A380522, A380405. %K A380523 nonn,hard,more %O A380523 1,1 %A A380523 _Zhining Yang_, Jan 26 2025