A176865 Numbers n such that n-LargestCube is prime, (LargestCube <= n).

3, 4, 6, 10, 11, 13, 15, 19, 21, 25, 29, 30, 32, 34, 38, 40, 44, 46, 50, 56, 58, 66, 67, 69, 71, 75, 77, 81, 83, 87, 93, 95, 101, 105, 107, 111, 117, 123, 127, 128, 130, 132, 136, 138, 142, 144, 148, 154, 156, 162, 166, 168, 172, 178, 184, 186, 192, 196, 198, 204

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

3-1^3=2, 4-1^3=3, ..., 10-2^3=2, 11-2^3=3, ..., 29-3^3=2, ....

Mathematica

lst={}; Do[p=n-Floor[n^(1/3)]^3; If[PrimeQ[p], AppendTo[lst, n]], {n, 6!}]; lst
Select[Range[300], PrimeQ[#-Floor[Surd[#, 3]]^3]&] (* Harvey P. Dale, May 31 2017 *)

Prog

(PARI) is(n)=isprime(n - sqrtnint(n, 3)) \\ Charles R Greathouse IV, May 22 2017

Crossrefs

Cf. A135932, A176864.

Sequence in context: A050087 A079325 A284528 * A047296 A368059 A301759

Adjacent sequences: A176862 A176863 A176864 * A176866 A176867 A176868

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 27 2010

Status

approved