A345072 Numbers k such that the sum of cubes of digits of both k and k-2 are primes.

113, 115, 124, 148, 166, 184, 214, 223, 238, 256, 265, 283, 289, 298, 328, 337, 355, 364, 418, 463, 487, 496, 526, 535, 553, 568, 577, 586, 616, 625, 634, 643, 658, 694, 757, 784, 814, 823, 829, 847, 856, 874, 889, 928, 946, 964, 997, 1013, 1015, 1024, 1048, 1066

Offset

1,1

Comments

Numbers k such that k and k-2 appear in A225534.

Links

Table of n, a(n) for n=1..52.

Mathematica

q[n_] := PrimeQ[Plus @@ (IntegerDigits[n]^3)]; Select[Range[3, 1000], q[#-2] && q[#] &] (* Amiram Eldar, Jun 07 2021 *)

Crossrefs

Cf. A225534.

Sequence in context: A157885 A204377 A242557 * A214503 A054033 A167843

Adjacent sequences: A345069 A345070 A345071 * A345073 A345074 A345075

Keyword

base,nonn

Author

Charles U. Lonappan, Jun 07 2021

Status

approved