A109408 -id:A109408 - cp's OEIS frontend

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

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)).

A076204 Numbers whose cube has a prime sum of digits.

Original entry on oeis.org

13, 14, 16, 17, 22, 23, 25, 28, 34, 37, 47, 52, 58, 64, 67, 68, 74, 76, 85, 106, 107, 118, 130, 134, 139, 140, 142, 146, 160, 166, 169, 170, 172, 175, 178, 181, 193, 196, 211, 217, 218, 220, 223, 229, 230, 232, 241, 244, 250, 253, 256, 265, 268, 280, 283, 286

Offset: 1

Zak Seidov, Nov 02 2002

Corresponding primes in A109410.

Cf. A004164, A109408.

A076204=Select[Range[500], PrimeQ[Plus@@IntegerDigits[ #^3]]&]

a(n) = (A109408(n))^(1/3).

Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, May 21 2007

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula