|
|
A176871
|
|
Prime numbers p such that p-q^3 is a prime number, (q is a prime number, q^3=LargestCube, LargestCube <= p).
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
3-1^3=2, 11-2^3=3, 13-2^3=5, 19-2^3=11, 29-3^3=2, 127-5^3=2,..
|
|
LINKS
|
|
|
MATHEMATICA
|
lst={}; Do[q=Floor[n^(1/3)]; p=n-q^3; If[PrimeQ[p]&&PrimeQ[n]&&PrimeQ[q], AppendTo[lst, n]], {n, 2*9!}]; lst
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|