OFFSET
1,2
COMMENTS
That is, if n is d digits long, then each one of those d digits occurs in the digits of n^2.
EXAMPLE
125^2 = 15625, which contains all digits of 125, so 125 is a term of the sequence.
55 is not here because 55^2 = 3025, which has only one 5.
MATHEMATICA
Reap[Do[a = DigitCount[n^2]; b = DigitCount[n]; If[Min[a-b] >= 0, Sow[n]], {n, 1, 10^3}]][[2, 1]]
PROG
(Python)
from itertools import count, islice
from collections import Counter
def A064827_gen(startvalue=1): # generator of terms >= startvalue
return filter(lambda k:Counter(str(k))<=Counter(str(k**2)), count(max(startvalue, 1)))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Joseph L. Pe, Feb 14 2002
STATUS
approved