A123135 a(n) = n^3 plus sum of digits of n^3.

2, 16, 36, 74, 133, 225, 353, 520, 747, 1001, 1339, 1746, 2216, 2761, 3393, 4115, 4930, 5850, 6887, 8008, 9279, 10667, 12184, 13842, 15644, 17602, 19710, 21971, 24415, 27009, 29819, 32794, 35964, 39323, 42901, 46683, 50672, 54898, 59346, 64010

Offset: 1

Author

Herman Jamke (hermanjamke(AT)fastmail.fm), Sep 30 2006

Keywords

• nonn
• base

Examples

			a(4) = 4^3 + sum of digits of 4^3 = 64 + (6 + 4) = 74.
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..1000
• A. Frank & P. Jacqueroux, International Contest, 2001. Item 24

Programs

Mathematica

#+Total[IntegerDigits[#]]&/@(Range[40]^3) (* Harvey P. Dale, Nov 06 2019 *)

PARI

a(n) = my(d = digits(n^3)); n^3 + sum(i=1, #d, d[i]); \\ Michel Marcus, Dec 02 2013

Formula

a(n) = A062028(A000578(n)). - Michel Marcus, Dec 02 2013