1,1

There are no other terms < 2*10^30.

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 &]

Cf. A053706, A380521, A380522, A380405.

Sequence in context: A181361 A056570 A343318 * A165048 A066963 A067813

Adjacent sequences: A380520 A380521 A380522 * A380524 A380525 A380526

nonn,hard,more

Zhining Yang, Jan 26 2025

approved