A109410 - OEIS

%I #5 Jul 16 2017 13:46:53

%S 19,17,19,17,19,17,19,19,19,19,17,19,19,19,19,17,17,37,19,19,17,19,19,

%T 17,37,17,37,17,19,37,37,17,37,37,37,37,37,37,37,19,17,19,37,37,17,37,

%U 37,37,19,37,37,37,37,19,37,37,37,37,37,37,37,17,37,37,37,37,37,37,37

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

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

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

%t Select[Total[IntegerDigits[#]]&/@(Range[1000]^3),PrimeQ] (* _Harvey P. Dale_, Jul 16 2017 *)

%Y Cf. A004164, A109408, A076204.

%K base,nonn

%O 1,1

%A _Zak Seidov_, Jun 28 2005