OFFSET
1,3
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000
EXAMPLE
55 is in the list because 55^2 = 3025 and 5 appears in 3025.
323 is in the list because 323^2 = 104329 and 2, 3 appear in 104329.
MATHEMATICA
d[n_]:=IntegerDigits[n]; Select[Range[0, 421], Complement[d[#], d[#^2]]=={}&] (* Jayanta Basu, Jun 02 2013 *)
PROG
(Magma) [n: n in [0..500] | Intseq(n) subset Intseq(n^2)]; // Bruno Berselli, Aug 01 2013
(Python)
from itertools import count, islice
def A029772_gen(startvalue=0): # generator of terms >= startvalue
return filter(lambda n:set(str(n)) <= set(str(n**2)), count(max(startvalue, 0)))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved