A109408 Cubes whose digits sum to a prime.

2197, 2744, 4096, 4913, 10648, 12167, 15625, 21952, 39304, 50653, 103823, 140608, 195112, 262144, 300763, 314432, 405224, 438976, 614125, 1191016, 1225043, 1643032, 2197000, 2406104, 2685619, 2744000, 2863288, 3112136, 4096000

Offset: 1

Author

Zak Seidov, Jun 28 2005

Keywords

• base
• nonn

Crossrefs

Corresponding primes in A109410.

Cf. A004164, A076204.

Programs

Mathematica

A109408=Select[Table[n^3, {n, 200}], PrimeQ[Plus@@IntegerDigits[ # ]]&];

Formula

a(n) = (A076204(n))^3.