login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A029943 Substring of both its square and its cube. 6
0, 1, 5, 6, 10, 25, 50, 60, 76, 100, 250, 376, 500, 600, 625, 760, 1000, 2500, 3760, 5000, 6000, 6250, 7600, 9376, 10000, 25000, 37600, 50000, 60000, 62500, 76000, 90625, 93760, 100000, 109376, 250000, 376000, 500000, 600000, 625000 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,3
COMMENTS
Intersection of A018834 and A029942. - Reinhard Zumkeller, Feb 29 2012
LINKS
Eric Weisstein's World of Mathematics, Automorphic Number
FORMULA
a(n) = A003226(m) * 10^k for appropriate m and k. [Reinhard Zumkeller, Nov 26 2011]
MATHEMATICA
ssscQ[n_]:=Module[{idn=IntegerDigits[n], sq=IntegerDigits[n^2], cu=IntegerDigits[n^3], len=IntegerLength[n]}, MemberQ[Partition[ sq, len, 1], idn] &&MemberQ[Partition[cu, len, 1], idn]]; Join[{0}, Select[Range[700000], ssscQ]] (* Harvey P. Dale, Apr 24 2011 *)
PROG
(Haskell)
import Data.List (isInfixOf)
a029943 n = a029943_list !! (n-1)
a029943_list = filter f [0..] where
f x = show x `isInfixOf` show (x^2) && show x `isInfixOf` show (x^3)
-- Reinhard Zumkeller, Nov 26 2011
CROSSREFS
Sequence in context: A075156 A075904 A018834 * A356760 A063630 A342127
KEYWORD
nonn,base,nice
AUTHOR
EXTENSIONS
Offset corrected by Reinhard Zumkeller, Nov 26 2011
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 07:49 EDT 2024. Contains 370958 sequences. (Running on oeis4.)