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,1

Comments

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

Links

Table of n, a(n) for n=1..69.

Formula

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

Mathematica

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

Crossrefs

Cf. A004164, A109408, A076204.

Sequence in context: A215085 A241525 A321332 * A230339 A022975 A023461

Adjacent sequences: A109407 A109408 A109409 * A109411 A109412 A109413

Keyword

base,nonn

Author

Zak Seidov, Jun 28 2005

Status

approved