A202172 Squares containing only the digits 0, 4 or 8.

0, 4, 400, 484, 40000, 40804, 48400, 88804, 4000000, 4008004, 4080400, 4088484, 4840000, 4848804, 8880400, 400000000, 400080004, 400800400, 400880484, 408040000, 408848400, 484000000, 484088004, 484880400, 840884004, 888040000, 40000000000, 40000800004

Offset

1,2

Links

Table of n, a(n) for n=1..28.

Formula

a(n)=A202170(n)^2

Mathematica

Select[Range[0, 400000]^2, Complement[Union[IntegerDigits[#]], {0, 4, 8}] == {} &] (* T. D. Noe, Dec 21 2011 *)
Select[FromDigits/@Tuples[{0, 4, 8}, 11], IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Apr 19 2019 *)

Prog

(PARI) for(i=0, 99999, setminus(Set(Vec(Str(i^2))), Vec("048")) | print1(i^2, ", "))

Crossrefs

Cf. A030098.

Sequence in context: A116031 A115049 A307929 * A349460 A158111 A259049

Adjacent sequences: A202169 A202170 A202171 * A202173 A202174 A202175

Keyword

nonn,base

Author

M. F. Hasler, Dec 13 2011

Status

approved