%N Numbers k such that the sum of cubes of digits of both k and k-2 are primes.
%C Numbers k such that k and k-2 appear in A225534.
%t q[n_] := PrimeQ[Plus @@ (IntegerDigits[n]^3)]; Select[Range[3, 1000], q[#-2] && q[#] &] (* _Amiram Eldar_, Jun 07 2021 *)
%Y Cf. A225534.
%A _Charles U. Lonappan_, Jun 07 2021