A055569 Sum of digits of a(n)^3 is greater than or equal to a(n).

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 12, 13, 14, 15, 16, 17, 18, 19, 26, 27

Offset

0,3

Links

Table of n, a(n) for n=0..19.

Example

a(4) = 4 because 4^3 = 64 and 6+4 = 10>= 4

Mathematica

Select[Range[300], Total[IntegerDigits[#^3]]>=#&] (* Harvey P. Dale, Aug 27 2013 *)

Crossrefs

Cf. A004164, A046459, A055568, A055570, A055571, A055572.

Sequence in context: A032848 A009993 A190218 * A351119 A277046 A305462

Adjacent sequences: A055566 A055567 A055568 * A055570 A055571 A055572

Keyword

base,fini,full,nonn

Author

Henry Bottomley, May 26 2000

Status

approved