A176870 Prime numbers p such that p-LargestCube is prime, (LargestCube <= p).

3, 11, 13, 19, 29, 67, 71, 83, 101, 107, 127, 223, 227, 229, 233, 239, 257, 263, 269, 277, 283, 313, 317, 523, 541, 571, 601, 613, 619, 643, 661, 691, 709, 1013, 1019, 1031, 1061, 1097, 1103, 1109, 1151, 1163, 1181, 1193, 1223, 1229, 1277, 1283, 1307, 1733

Offset

1,1

Comments

3-1^3=2, 11-2^3=3, 13-2^3=5, 29-3^3=2,..

Links

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

Mathematica

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

Crossrefs

Cf. A135932, A176864, A176865

Sequence in context: A103835 A067386 A063621 * A089152 A066594 A329761

Adjacent sequences: A176867 A176868 A176869 * A176871 A176872 A176873

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 27 2010

Status

approved