A076204 Numbers whose cube has a prime sum of digits.

13, 14, 16, 17, 22, 23, 25, 28, 34, 37, 47, 52, 58, 64, 67, 68, 74, 76, 85, 106, 107, 118, 130, 134, 139, 140, 142, 146, 160, 166, 169, 170, 172, 175, 178, 181, 193, 196, 211, 217, 218, 220, 223, 229, 230, 232, 241, 244, 250, 253, 256, 265, 268, 280, 283, 286

Offset: 1

Author

Zak Seidov, Nov 02 2002

Keywords

• base
• nonn

Crossrefs

Corresponding primes in A109410.

Cf. A004164, A109408.

Programs

Mathematica

A076204=Select[Range[500], PrimeQ[Plus@@IntegerDigits[ #^3]]&]

Formula

a(n) = (A109408(n))^(1/3).

Extensions

Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, May 21 2007