The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A029942 Numbers k such that decimal expansion of k^3 contains k as a substring. 8
 0, 1, 4, 5, 6, 9, 10, 24, 25, 32, 40, 49, 50, 51, 56, 60, 75, 76, 90, 99, 100, 125, 240, 249, 250, 251, 375, 376, 400, 490, 499, 500, 501, 510, 600, 624, 625, 749, 750, 751, 760, 782, 875, 900, 990, 999, 1000, 1249, 1250, 2400, 2490, 2500, 2510 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS Giovanni Resta, Table of n, a(n) for n = 1..1000 (first 500 terms from Reinhard Zumkeller) EXAMPLE 24 is a term as 24^3 = 13824 contains 24 as a substring, 250 is a term as 250^3 = 1562500 contains 250 as a substring. 6^3 = 21_6, 782^3 = 4_782_11768. MAPLE select(n->searchtext(convert(n, string), convert(n^3, string))>0, [\$0..3*10^3]); # Paolo P. Lava, Apr 18 2018 MATHEMATICA n3ssQ[n_]:=Module[{idn=IntegerDigits[n], idn3=Partition[ IntegerDigits[ n^3], IntegerLength[n], 1]}, MemberQ[idn3, idn]]; Join[{0}, Select[Range[ 2600], n3ssQ]] (* Harvey P. Dale, Jan 23 2012 *) PROG (Haskell) import Data.List (isInfixOf) a029942 n = a029942_list !! (n-1) a029942_list = [x | x <- [0..], show x `isInfixOf` show (x^3)] -- Reinhard Zumkeller, Feb 29 2012 CROSSREFS Cf. A018834, A075904, A075905. Cf. A000578. Supersequence of A029943. Sequence in context: A082812 A255634 A075903 * A162016 A242040 A206822 Adjacent sequences:  A029939 A029940 A029941 * A029943 A029944 A029945 KEYWORD nonn,base,nice AUTHOR STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 23 16:01 EDT 2020. Contains 337310 sequences. (Running on oeis4.)