OFFSET
1,2
COMMENTS
n = 2*m where m^2 has only digits 0, 1 and 2. - Robert Israel, Jul 17 2018
LINKS
Robert Israel, Table of n, a(n) for n = 1..204
MAPLE
Res:= NULL:
for x from 0 to 3^12 do
L:= convert(x, base, 3);
y:= add(L[i]*10^(i-1), i=1..nops(L));
if issqr(y) then
Res:= Res, 2*sqrt(y)
fi
od:
Res; # Robert Israel, Jul 17 2018
MATHEMATICA
Select[Sqrt[FromDigits[#]]&/@Tuples[{0, 4, 8}, 13], IntegerQ] (* Harvey P. Dale, Sep 08 2024 *)
PROG
(PARI) is_A202170(n)=!setminus(Set(Vec(Str(n^2))), Vec("048"))
(Magma) [ n: n in [0..10^6 by 2] | Set(Intseq(n^2)) subset [0, 4, 8] ]; // Bruno Berselli, Dec 19 2011
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Dec 13 2011
EXTENSIONS
More terms from Robert Israel, Jul 17 2018
STATUS
approved