VOOZH about

URL: https://oeis.org/A380405

⇱ A380405 - OEIS

login
A380405
Squares k such that there are no primes between k and the nearest cube that is not k.
1
9, 25, 121, 32761, 79524, 97344
OFFSET
1,1
COMMENTS
There are no other terms < 2*10^30.
EXAMPLE
121 is a term because it is a square and there are no primes between 123 and 125, its nearest cube.
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Zhining Yang, Jan 26 2025
STATUS
approved