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

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

Author

Zak Seidov, Jun 28 2005

Keywords

• base
• nonn

Comments

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

Crossrefs

Cf. A004164, A109408, A076204.

Programs

Mathematica

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

Formula

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