OFFSET
1,1
EXAMPLE
a(3)=3527, a(4)=3529 since 3527=3^3+5^3+15^3 and 3529=1^3+11^3+13^3.
MATHEMATICA
cu[n_] := {}!=Quiet@ IntegerPartitions[n, {3}, Range[n^(1/3)]^3, 1]; Flatten@ Rest@ Reap@ Do[If[ PrimeQ[p+2] && cu[p] && cu[p+2], Sow[{p, p+2}]], {p, Prime@ Range@ 10000}] (* Giovanni Resta, Apr 28 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carmine Suriano, Apr 28 2016
STATUS
proposed