This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A109410 #5 Jul 16 2017 13:46:53 %S A109410 19,17,19,17,19,17,19,19,19,19,17,19,19,19,19,17,17,37,19,19,17,19,19, %T A109410 17,37,17,37,17,19,37,37,17,37,37,37,37,37,37,37,19,17,19,37,37,17,37, %U A109410 37,37,19,37,37,37,37,19,37,37,37,37,37,37,37,17,37,37,37,37,37,37,37 %N A109410 Prime numbers p such that p = digit sum of cubes in A109408. %C A109410 Corresponding n in A076204, n^3 in A109408. A004164 Sum of digits of cubes. %F A109410 A109410(n) = digit_sum(A109408(n)). %t A109410 Select[Total[IntegerDigits[#]]&/@(Range[1000]^3),PrimeQ] (* _Harvey P. Dale_, Jul 16 2017 *) %Y A109410 Cf. A004164, A109408, A076204. %K A109410 base,nonn %O A109410 1,1 %A A109410 _Zak Seidov_, Jun 28 2005