OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
sdsQ[n_]:=Module[{idn3=IntegerDigits[n^3], idn2=IntegerDigits/@ (IntegerDigits[ n]^2)}, And@@Table[SequenceCount[idn3, idn2[[i]]]>0, {i, Length[idn2]}]]; Select[Range[1500], sdsQ] (* The program uses the SequenceCount function from Mathematica version 10 *) (* Harvey P. Dale, Aug 08 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Claudio Meller, Mar 01 2010
EXTENSIONS
Corrected and extended by Harvey P. Dale, Aug 08 2016
STATUS
approved