|
|
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
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|