A383640 Internal digits of k^3 include digits of k as substring, k does not end in 0.

56, 782, 5111, 8089, 8216, 9553, 11768, 14357, 18229, 53257, 64164, 65137, 72556, 98442, 213405, 271516, 830686, 941976, 1969394, 2420681, 2751442, 4150015, 5354867, 7045156, 9590417, 9699457, 10333214, 13427757, 21955652, 31213974, 32743132, 35272742

Offset

1,1

Links

Shyam Sunder Gupta, Table of n, a(n) for n = 1..76

Shyam Sunder Gupta, Elegance of Squares, Cubes, and Higher Powers, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 2, 29-81.

Example

56 is in the sequence as 56^3 = 175616 contains 56 in its decimal expansion.

Mathematica

Select[Range[5, 10^6], Mod[#, 10]>0&&SequenceCount[Rest[Drop[IntegerDigits[#^3], -1]], IntegerDigits[#]]>0&] (* James C. McMahon, May 09 2025 *)

Crossrefs

Cf. A052210, A046837.

Sequence in context: A105940 A175602 A227059 * A285155 A278197 A381008

Adjacent sequences: A383637 A383638 A383639 * A383641 A383642 A383643

Keyword

nonn,base

Author

Shyam Sunder Gupta, May 03 2025

Status

approved