A076204 -id:A076204 - cp's OEIS frontend

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

Zak Seidov, Jun 28 2005

Corresponding primes in A109410.

Cf. A004164, A076204.

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

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

A109410 Prime numbers p such that p = digit sum of cubes in A109408.

Original entry on oeis.org

19, 17, 19, 17, 19, 17, 19, 19, 19, 19, 17, 19, 19, 19, 19, 17, 17, 37, 19, 19, 17, 19, 19, 17, 37, 17, 37, 17, 19, 37, 37, 17, 37, 37, 37, 37, 37, 37, 37, 19, 17, 19, 37, 37, 17, 37, 37, 37, 19, 37, 37, 37, 37, 19, 37, 37, 37, 37, 37, 37, 37, 17, 37, 37, 37, 37, 37, 37, 37

Offset: 1

Zak Seidov, Jun 28 2005

Corresponding n in A076204, n^3 in A109408. A004164 Sum of digits of cubes.

Cf. A004164, A109408, A076204.

Select[Total[IntegerDigits[#]]&/@(Range[1000]^3),PrimeQ] (* Harvey P. Dale, Jul 16 2017 *)

A109410(n) = digit_sum(A109408(n)).

cp's OEIS Frontend

A109408 Cubes whose digits sum to a prime.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

Formula