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.
113 is a term because between prime 113 and next prime 127 there exists a square 121 and a cube 125.
b[n_] := If[IntegerQ@Sqrt@n, 0, p = NextPrime[n^3, -1]; If[Floor[Sqrt[NextPrime[p]]]^2 <= p, 0, p]]; Select[Array[b@# &, 100], # > 0 &]
125 is a term because it is a cube and there are no primes between 125 and 121, its nearest square.
b[n_] := If[IntegerQ@Sqrt@n, 0, p = NextPrime[n^3]; If[Ceiling[Sqrt[NextPrime[p, -1]]]^2 >= p, 0, n^3]]; Select[Array[b@# &, 1000], # > 0 &]
121 is a term because it is a square and there are no primes between 123 and 125, its nearest cube.
b[n_] := If[IntegerQ@Sqrt@n, 0, p = NextPrime[n^3]; q = Ceiling[Sqrt[NextPrime[p, -1]]]; If[q^2 >= p, 0, q]]; Select[Array[b@# &, 1000], # > 0 &]^2
Comments