OFFSET
1,1
COMMENTS
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
201 and 40401 = 201^2 have both at least one zero but not the same number of 0 in their decimal expansion, hence, 201 is a term.
MAPLE
f:= n-> numboccur(0, convert(n, base, 10)):
q:= n-> ((x, y)-> x>0 and y>0 and x<>y)(f(n), f(n^2)):
select(q, [$0..500])[]; # Alois P. Heinz, Oct 28 2019
MATHEMATICA
Select[Range[0, 470], (x = DigitCount[#, 10, 0]) > 0 && (y = DigitCount[ #^2, 10, 0]) > 0 && x != y &] (* Giovanni Resta, Feb 27 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Bernard Schott, Oct 28 2019
EXTENSIONS
More terms from Alois P. Heinz, Oct 28 2019
STATUS
approved